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ABSTRACT 


The purpose of this study is to provide a narrative description 
of a cost allocation model for Depot Purchased Equipment Mainte- 
nance. The model is configured for the Honeywell 635 computer 
supporting remote terminals and batch remote facilities via a 
Honeywell 115 operating in an open shop enviroment. Included 
are the computer programs and samples of the output products. 
Although this report is pecluiar to the Air Force Logistics 
Command's Directorate of Materiel Requirements at Wright-Pat- 


terson Air Force Base, it can easily be adapted for other cost 
allocation areas. 


DPFM ALLOCATION MODEL 


PREFACE 


The identification of resource requirements to support the Depot 
Purchased Fauipment Maintenance Program (DPEM) has previously 
been accomplished by showing only categories of weapon systems. 
Manual methods for achieving detailed requirements were consid- 
ered economically unfeasible because of the manhours involved 
and the length of time needed for computation. The allocation 
model now provides AFLC command management visibility to a depth 
not previously available in the DPFM program. 


The model enables management to establish broad standards that 
include, total hudget available, desired distribution of avail- 
able budqet by customer, orqanic or contract, or element expenses, 
and the relative funding priority of weapon systems. The model 
applies these standards in the individual command validated AFLC 
requirements. The resulting products, in both detailed and sum- 
mary form, are then used to determine the fiscal health of the 
DPFM program. The impact of the management decisions on indivi- 
dual weapon systems, or other areas of the standards identified 
above, is very apparent. The opportunity is then available to 
alter the test standards, recycle the model, and achieve more 
desired results. 


To date, practical application of the model has been made in two 
areas. The model has been used to ascertain the command reauire- 
ment with an FY 79 Proaram Ohjective Memorandum (POM) submission. 
FY 78 through 83 requirement were manipulated, with criteria 
tailored to the individual fiscal year. The resulting data was 
then used as the POM submission, with the product servina as 
finely detailed hackup. To have accomplished this recently 
assigned task without the benefit of the model would have been 
extremely difficult at best, and no doubt would have commanded 
less confidence. 


Second application is the current vear (FY 77) where it is being 
utilized to identify the probable FY 77 closeout position. Ample 
time remains in the fiscal year to alter the program authoriza- 
tion, if deemed appropriate, and to achieve a more desirable 
closeout position. 


In summary, the model provides visibility not previously available 
to HO AFLC into the details of the annual prooram, and provide 
management the opportunity to more beneficially distribute the 
funds allocated to the DPFM vroqram, minimize the impact of the 
relatively austere financina on the command and the USAF as 
applicable to the DPFM proqran. 
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CHAPTER 1 
INTRODUCTION 


The details of research methodoloay which led to the construc- 
tion of a test model for Depot Purchased Fauinpment Maintenance 
funding have alreadv been documented in Working Paper No. 82, 
dated February 1975, A Program Allocation Model for Depot 
Purchased Faquinoment Maintenance, Squadron Leader Graham C. 
Milborrow, RAF, Directorate of Systems Management, DCS/Plans 
and Programs, Headquarters, Air Force Logistics Command (See 
Note). This initial study tried to identify the implicit and 
explicit criteria being used by AFLC agencies in the DPFEM pro- 
cess. Research following the analysis phase was aimed at remov- 
ing some of the subjectivity in the funding process in favor of 
using mission essentiality criteria. 


The operational version of the model uses little of this phi- 
losophy however, and, apnvart from the use of weapon system 
prioritizing, none of the envisioned changes are included 
(i.e., use of marginal analysis to compute exchangeable item 
budget inclusions). 


The operational DPEM allocation model basically provides HO 
AFLC management (LORFER) with a computational facility. Using 
this, LORFR can manipulate $ funding levels, as well as chang- 
ing percentages assiqned to different levels in the funding 
hierarchy (i.e., Organic Maintenance work versus Contract 
Maintenance work). 


Despite this departure from the original research philosophy, 
AFLC management has, in the operational model, the ability to 
sensitivitv-test different monetary allocations and funding 
emphasis, and observe the totality of the results of these 
actions. Thus, although the model has become merely a deter- 
ministic computational resource, it does fulfill the apparent 
management need for a "macro-calulator" to be used in formu- 
lating fiscal policy. 


This paper, explains the mechanics of the model together with 
the details of its input formats, filing arrangements and 
report writing capabilities. Following this, the details 
necessary for operation of the model are explained. 


NOTF: Nefense Documentation Center (DDC) Number A035440. 
Nefense Loaqistics Studies Information Fxchanace (DLSIF) 
Number LD38087A. 


CHAPTER 2 
CONSTRUCTION OF THE MODEL 
Outline 
The model is organized in three sections: the Data Extrac- 
tion Process, the Allocation Process, and the Report Genera- 
tor Process. COROL is used as the proorammina lancuace 


throudqhout except for two FORTRAN time-sharing subroutines. 


Fxamples for the three sections of the Models vrocramming are 
qiven in Appendix Al thru AlO. 


Appendix RB, depict FORTRAN samples. 
Data Files Content samples are listed in Appendix Cl thru C6. 


Fxamples of the output report formats for the three sections 
of the Model are shown in Appendices D thru I. 


The Data Fxtraction Process 
As Fiaqure 1 shows, the data elements are extracted from the 


DPEM Data Bank and solit into “common item” and “specific 
weanon system" appvlicabilities. 


Programmina focuses on the common items data at this stace. 
A "“MISTR to MDS" tape containing Subprocram (Federal Stock 
Class/Materiel Management Code) and Model Desican Series (MDS 


data is input and used as a “look up" table. Both the HISTR 
tape and the common item file are first sorted by Logistics 
Subvroaqram Code (KS) and Fiscal Year (FY). The KS elements 
of the common item are made MDS peculiar. Both peculiar item 
data and that for the identified common items are then joint- 
lv sorted by MDS and WBS (Work Breakdown Structure Code). 


At this point, a look up table is used to identifv the actual 
weapon system for the MDS details. Wnaen this identification 
nrocess is accomplished, the annotated data is written to a 
data file tane which is used as input for the Allocation 
Process. 


The Allocation Process 


The first action of the model in the Allocation Phase is to 


produce a permfile of the $ reanirements submitted by ALCs, a 


2 


permfile of percentace fundinags to he appliect to each element 
of expense, and a management report reflecting initial ALC $ 
requirements. The latter output is to help manacement deter- 


mine whether any chances to the percentage requirement levels 
TAMMOAM «2 


are needed prior to running the model. The routine IT. 
carries out these actions as Outlined in Figure 2. 


Chances can he made by the manager to both the percentace 
funding levels for each ERI, and the $ allocation to each 
customer within a specified fiscal year via FORTRAN time-shar- 
ina programs. Details of these procedures are qiven in 
Chapter 3. 


Fioure 3 covers the main allocation process. The bu ‘ 
fioures for each customer (input by management via a TSS 
minal) are broken down into their lowest elements of expense 
(repair aroun categories). The proaram identifies these 
elements of expense to their respective hierarchies of 
applicability, i.e., customer, draw codes, work tyne (orqanic/ 
contract), and RGC code. This ensures clement can be tracked 
easily throughout the allocation process. 


™he allocation process deals separately with two prior funding 
conditions. If the funding is greater than the requirement, tie 
allocation process proceeds directly using the $ requirements 
reported by the ALCs to the DPEM Data Bank. If the funding level 
is less than the requirement, the following process is imole= 
mented. 


ach element of exnense (RPGC) has already been assiqned a pri- 
ority of fundina By HO AFLC Materiel Management (MMRER Letter, 
3 February 1975 refers). This information is linked to cer- 
tain set percentage funding levels and the proaram sets out 
this information in tabular form. Using this, the procram 
Calculates the $ allocation for each element of expense (with= 
in O/C code, draw code, and CUS), and writes the allocated 
total to a temporary file. 


During the above process, the difference hetween the ERI $ 
allocated Ky the priority rule and the EFI S$ aliocated by 
nercentage requirements input by TSS interface is calcu 


TE this difference is qreater than $5,009, a correction fac- 


tor is then calculated, and applied to each $ allocation 
(under the priority rule). This adjusts the priority rule 
nercentaqge application to the S$ fundina level available. The 


ed 


results for this adjustment are then written to the allocat 
S tape for subsequent input to the Report Generator Process. 


Renort Generator Process 


The third section of the model covers the output rem 
as specified by HO AFLC/LORER. Data elements i 
the sub-headings. Fund reports are produced 


l. DPEM Requirement - Allocation Summary by Model Design 
(Avpendix D). This revort gives the accumulated requirement 
and allocated dollars by Model Desiaqn. 


2. DPEM Requirement - Allocation Summary by Hich $ Burner 
Weapon Svstem (Appendix FEF). Only pseudo codes with allocations 
in excess of $590,990 are listed and summarized by ALC. 


3. DPFEM Requirement - Allocation Summary by Weapon Systen 
Priority (Appendix F). The data elements are listed by prior- 
PEM 


DPEM Requirement - Allocation Summary by Manacer (Appen- 
The data elements listed are shown here by ALC. 


DPEM Requirement - Summary by Customer, Oraanic/Con- 
Draw Code, and Repair Group Category (Appendix H). 
’ 


CHAPTER 3 
OPERATING PROCRDURES 


Introduction 


Usina the model reauires the sequential runnina of two programs 
in the Data Extraction Process, two proorams in the Allocation 
Process, and up to five programs in the Report Generator Pro- 
cess, dependina on the needs of management. In addition, dur- 
ina the allocation process, there are two time-sharing inter- 
face routines (MODELPCT and MODELPCS) which allow manacement to 
set $ budget levels and ? funding requirements respectively. 


To ease exposition of the running procedures, all inputs to a 
CREATE terminal, required of the operator, are shown as a 
series of annotated exhibits. These should be followed 
sequentially exceot where alternates are indicated. 


In summary, the proqrams to be run in sequence are as follows: 


Data MODEXT.R 
Extraction 
Process MODWRS.R 


MODMDS.S (Initiated by MODEXT.R) 
See Exhibit 1 
( MODTOT.R Initial report section. 
Allocation ( MODELPC™) TSS Interface 
Process ( MODFLPCS) programs. 
MODALL.R 


See Exhibit 2 


Report ( MODSUM.R 
Generator ( MODSO9.R 
Process ( MODPRI.R 
( MODALC.R 
( MODREO.R 


See Fxhibit 3 


MODEXT.S 


EXTRACTION OF 
DATA FROM DPEM 
DATA BASE 


"PECULIAR' 


3 PAGE.B 


ee Pye ADDS APPROP 
ITEMS & MAKES WBS CODES 
"PECULIAR' reee 7 


MODWBS.S SORT BY 
MERGES TWO MDS, WBS 
STREAMS OF 

"PECULIAR' 

DATA 


INPUT TO ALLOCATION 
PHASE 


FIGURE 1 - DPEM MODEL DATA EXTRACTION PROCESS 


OUTPUT FROM 


EXTRACTION PROCESS 


MODTOT.S 


DPEM DATA FROM EXTRACTION 
PROCESS IS TOTALLED BY CUSTOMER 
DRAW & RGC. EACH TOTAL IS 
DIVIDED BY GRAND TOTAL TO 
PROVIDE A % OF $ IN EACH TOTAL 
FILES AND REPORT ARE PRODUCED 


REPORT FOR 
MGT FY DRAW 
EEIC 


FIGURE 2 - DPEM MODEL ALLOCATION PROCESS - INITIAL REPORT SECTION 


/ TSS 


INTERFACE 
INPUTS $ 


AVATLABLE 


ESS 


INTERFACE 
INPUTS @ 
REQUIREMENT 
CHANGES 


FIGURE 


MODALL.S 


DPEM REQUIREMENTS ARE COMPARED TO 
$ AVAILABLE AND $ ARE ASSIGNED TO 
REQUIREMENTS IN ORDER OF PRIORI''Y 
OF WEAPON SYSTEM TO WHICH THEY 
RELATE. 


INPUT TO REPORT 
GENERATOR 


DPEM MODEL ALLOCATION PROCESS =- MAIN 
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SECTION 


PRIORITY 
TABLE 
FILE 


EXHIBIT 1 


Data Extraction Process 


(a) SYSTEM ? CARD 


OLD OR NEW O MODEXT.P 


PRADY 


| be obtained throuch the CREATE open 
| F 
| central site output center. 
(hb) SYSTEM ? CARD 

ELST MUN UA SPAT Ot 
| OLD O ¢ ODWRS « 
PPADY 

wr 

ONITTIMR u TT A m 

| 194] 

* 

Diagnostic output produced as at (a) above. 


SR 


3 


EXHIBIT 


to 


Allocation Process 

(a) SYSTEM ? CARD 

OLD OR NEW O MODTOT.R 

RFADY 

* RUN 

SNUMRB 0925t 

A diagnostic output can be obtained through the CRFATF 
Open Shop. As well as this, an initial report is pro- 
duced. This enables management to see the DPFM recuire- 
ment as it exists before any modification of the 
requirement or allocated hudget has heen decided. An 
example is qiven at Appendix I. 
(b) SYSTEM ? FORT 

OLD OR NEW O MODFLPCT. 

See Appendix B.1l 
(c) SYSTEM ? FORT 

OLD OR NEW O MODELPCS 

See Appendix B.2 
(a) SYSTEM ? CARD 

OLD OR NEW O MODALL.R 

READY 


* RUN 


All diagnostic output can be obtained through CREAT open 
shop or central site output control. 
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EXHIBIT 3 


Report Generator Process 


The following report generator program can be run as desired. 


Copies of these management reports are included at Apnendixes 
D through Lf. 


OLD OR NEW O MODSUM.R 
READY 
* RUN 
Alternatively Substitute 0O MON5990.R 
O MONPRI.R 
Q MODALC.R 


QO MODREO.R 


EL 


APPEMNNTY AT 
PROGRAM LISTING = MODEXT.R = MODEXT.S 


| 
| 
| 
| 
| 


|) DOUSFPILEIS5¢S5Ry 15K 


CATALOG/FILE DESCRIPTION= RCS/NODEXT,.R 


“OiC#aN,R(AC) 


“TOOSEND 


“T2USTLEMIT SS (Spe OK 


O2UESTDENTSWPOOSS,LORER(81) Cgw 72751 MODEXT,R 

O30Ss1I MITS!15 909 9K oon Sane a ape 8 Sy nen Sse 
OUOS $GMAPSNDECK 
050:600USN 
O603SORTIFCR,, 12 
“OTOSETELD SCs, C2) 
O75:SEQ3 (AZ) 
O8OSEICKISHLECT? (2) 2 (=6H 76) 
OOO0SFILCBSFCB,**%,2 


110S$ 2 BxXEcuy ae $ = ee ee Caer Cee Pees SO ae 8 
IZ0SSTAPESSA,X690D,,735755,,PATABANK 

TEHOSEPILESS 1p X2Rp SR 

Th0S srTLess2,x%3R,S-R 


160SSFILESS3,X4R,5- RK 

1170S $ TAP A Ee be EG D E = - oar es . 2a a i 
TBOSSOPTLON COBOL, NOLAE 

TQOUSSSELECTERCS/MNODEXT.O 

ZOCSSEXECUYE 

2108 SL TNITS! S006 2K ‘ 

Z220S STI eLearn, xX1L 

Z230SSFIVLELSSBs%25,6-1 et Mie ee, fy Ea eee 
2U0SSFILATHC,X3S,2.1 

25US SORPTION SNOMAR 

260S3GHAPENOECK 


270 50008)% 

ZBUSSORTS FCB, , 8 
2QUTFIELLE(C4,C2,C4,C01-) 
B002SEO?2(AUsA2) 
STIVEPILCE I PCE, **y 2 
S2UshND 

S3USSEXECUTH 
SUCSSLIHITS: 15050 2K 
S50SSPILASSA,X3R, 2.0L 
S6USiPILAIS1y»SIR-Sa 
STUS EFL: es cke Fe 


wud? SORTIFCSy ¢5 


U6OUSSEQS(AT) 


GTOSFILCBEFCH,**, 2 a 
HdU SEND 
WOUSCEKECUYF 
SO0SSLINITSS 15555 2k 
SIOSSTAPESSA, %5D,,74 122, ,8UD0GET2 
S2USSFLILEIG1,S 1K, 15K 
SZ0SSPILE ss 2eS2hs 15P 
t 


PUOSTFL Lae e326 Site 15% Avi<% 
SSOUSEPILEESU, SUR, 19K 


“60USTRXECHTE 


“TIO TEND 


S7TOSSFILE2SZeX6S, 751 Ai Shes eed ee ee eee Oe eee 


SBUSIOPTION!ICOBOL,NOMAP 
SOUS SSELECTIECS/NODNDS.O 


OTOSSLINT USS 15g e 2K 


“@2USSFILETAR,X4SR,2 LO _ rea pacar 5 ia TORE eS ea ae a 
O3US8FILESSaB,X6R,6 1 eee en a, eee ae eh AA aS oe ee 


64UOSEFILESHR,Y7S,210L 
650$ sOPTION SNOMAP 

Kier Once ta ner a hes er hemi tet GR Sd mn ia Mae ace ans eae es eee keg ee 
67036008, 
6B0SSORTIFCH, 
OSUSEIELD: (C17,¢10,c1,¢C3) 


EVOSELTL ERSTE, ** 52 
TZ0S$S EXECUTE 
TEUSTLINITS f Spa 2K 
T50S SPLILAUSA,X2R, 608 
T6O0STPILSISBe* TR, 2104 
FIOSsPILE?S1,S1R,55R 
TOUSTPAL EIS 2,52R, 558 
TOUS PFTLEIAS3,S3R,55R 
SOUSS FEL A tSo, SSR, 55K 
SICSETAPESSZ, XED eg TUBUS, »MUDRAN/EING 


B20STENDJOB a ee 


) 
| CATALOG/FILE DESCRIPTIONS pRCS/MODEXT,S 
; a 
) | SN MeRERC Teer oer lesen ee 
ZOS3IDENT:XPOOSS»MNRER/DSW WALK 72751 MODEXT,S 
| SOSILINITS 15092 9K sae a NN aS. al Ba 


| WOSSOPTIONSNOMAP 
\ SOSSCONOLDIDECK ( Sa a : a ee he Gates 
|} 6OSSPRMFL:C*,W,S,RCS/NODEXT,O 
| MUL ER Eee LCM ELON DEVS kONe = ome ge me re ee 

BOSPROGRAM@ID, MODEXT, 

QOSENVIEONNENT DIVISION, a og aaa a a a a hee ee a 
| JOOSCONFIGURATION SECTION, 
)} TIOSSPECIAL“NAHES, caer ee So SB 7 aoe mais an 
| *@2ONSONPIES ZRRORS, 
| “TSOSFLOM CONTROL, Pr eg I Ia SN age aS Ga te a 
j TWONSELECT INPILE ass 
{ “lSONSELECT PECFILE X 
| 160\SFLFCT COMFILE 2 
| IWOSL=O-CONTFOL, 
& TBONAPPLY STANDARD ON ANFILE PECPILE com iFILE, | 

TSC EDNTA DIVISION. ; ane < aay ; pe Ga 

2007FILE SECTiIGY, 
ZiGseD LNPILE 
| 220\LAHEL KECORD STANDARD, 
| “A23S0CUT TVRECNPICG X(72)5 5 
| 2403Pp PECFILE 
SUNUROO LSC SuAMO Rie > eas ea aaa 
| 260204 PECREC\PIe x(48), 
270: FD COMEILF : 
2BO\LABZEL KFCORD STANDARD 
29030 T-COMREC\PIC 4(48 
SOOSHORKING=-STORAGH SECTION, 
SU ORGS EEG Sry NRG oO ROMP es 
1 S207 7 GCOMGUINE LOC S70) VALVE 0 COMP=1, 
| S30577 PeConTNere S(T) -VvALtE 0 COMP= 1. 

BUCO? DESENENPIC 2(6)9 


| 350277 DSuB\PTC 29, cae = as 
| 360377 SUBi\PIC 99 VALUE 0 COMP@1, 
| “Breer Sve sei eo sheen 7 cere 


380377 INOT\ETC 9 VALUES 0, 

390377 -MENTOTCNTN\PIC 9:7) VALUE O COMPH<7; 

bou:77 NOHDCRTAPLC 9(7) VALUE 9 COMP=1, 

TOSS ) PREC s 

420\ TECYRLC XK EU), 

LJ Sr eee ke ee ee ae Ta = 
WhO TRGOCNPIC Xs 

BSONCS IKSNELC X77 Ys 

VEO\ THDSNEES SCO) 6 


Ww ww ww 


47O\°3 IWKS. 
YBU\ O05 FISLLER\PIC Xe 
WION 05° WASC; . Ee ee Ae aaa Ae 


500\ O7 WSNEIC XX 

«9 OTON VU? PLVUBRVPLS oy 
wav Oe PLLLURNPIG ke 
SIUNTS IRIDs 

, SUO\ OS MEM\PIC 99, 
SSON OS LTP NPIC 9S ; A. L=2 — 
S60N US FILLERNPIC 99. 

, S7ONUS FELLER N\EPIC X5 

, en 5 ee 


| 
' 
! 
' 
| 
{ 
i 
i 
! 
| 
| 
' 
| 
if 


ICUS\PIC XXX, 


3 
590\03 FILLER\PIC X(9)e ee ee 
600\03 TOC\PITe x, 
St6.'S Sites ,6~ CCC ee ee ¥ 
620\: 3 IFAC\PIC XX, 
630\C3 IALC\PIC XX, 
64O\"3 FILLER\PIC X(9)6 
| 650\03 IDRAR\PIC X. 
| 660\°3 ISCODE\PIC &, 
i i@70L0e PIECE. LSC :SSt—O ee ee ee = ove 
6803041 OHDREC REDEFINES IREC, 
690\.3 FILLER\PIC x(38), 
TOONSS TONIC 97), 
| 7ION'3 TH\PIC 9(9), : 
| P2ONCS DTHaLAPTC S(T), f “ - 2 
| F30\73 FPILLER\PIC K(11), 
| Puoee4 ORRFC, 
TSOWS PENPIC KTV), 
TEON\SS FYNSTE XX; 
i PFONVS RGC\PrC xX, 
| FeO\U 3 KENETC X( 740), R : 
| @90\C3 MDS\PIC X(7-). 
SOO\'3 WBS\PIC %(5). 
SIONS CUSLPTIC XXX, 
1) S2ZO\OS OC\PIC: x, 
830\ 3 FAC\PIC XX, 
} @WONCT ALC\PIC XX, ? ; 
| 859\U23 DRAWNPIC X, 
| 860\U3 D\PIC 9(7). 


870201 TAB, 
S80% U2 5 OCcuURS 2, 
B89ON 7S T2 OCCURS 7, 
| SO0\ 05 Tp\PTC SET} OtCuRS 3. 
| 940:'°4 FYTAB, 
920: 02 F1 OCCURS 7, 
930\UC3 TFY\PIC Xx. 
GUOSPROCEDURE DIVISION. 
| 950sSSTART=$0, 
1} Q60\OPEN INPUT INFILB OUTPUT PECFILE COMFILF, 
| Q7O\MOVF SPACES TO FYTAR, 
Q9B8O\MOVE ZeRO TO TAB. 
99OIREAD]1, 
JOOO\RHAD ZINFILE AY END GO TO RAND=60, 
4070NADD tT TO INCH. 
4020\MOVE INREC TO TREC, 
10308CHECK=20, 
1040NIF MEN = 9O AND IScope = "1" ADD 1 TO MEMTOTCNT 
1050\GO TO READ@10, 
4060\IF ITYP = 01 GO TO NOVE=30. 
1O7O\MOVE ZNCNT TO DISCNT, 
108O\DISPLAY "NO HOR REC***" TREC “  KEC NO, =# * DPISCNT, 
“TO9O0\ADD 1 TO NOHDGNT. ; 
1100\GO TO READ@=10, 
* 11103MOVEH30, 
, 1120\MOVE PC TO 


1130\MOVE IFY MOVE IRGC TO RGC, 


we : 
14140\MOVE TKS TO MOVE rhos TO MDS, 

VTSO\MOVE IWES TO wHS HOVE ZFaAC TO FAC rae 
44SONMOVE TCUS TO CUS HOVE rod TO OC. 

1170\NHOVE TALC TO ALC hOVE IDRAW TO DRAW, 


ly :; A.1-4 . 


11BOSPERNH4C, 
“MAQGONESERRORM RLAD- 10, °° °° °& © ©)6?™6©™)O)OC pret aies aap 
12ZUO0\IF ITYP = 0! GO TO CHHCK=2 je 

SUATONCGUSMMEOCOMeUN Cee Slat Stil ta. 4 fo 8 ee te ee er re 
J220NPERFORM PER=65 THRU ELIT|H11¢. 

1230\LF ITY? 02 AND Oc "CC" GO TO REQe50, 
1240O\IF ITyYP 03 AND Oc wages 
1250\GO TO Fro=-52, = 
1260NGO TO PERM, 

hon hatte 0 = ci en errr rk erin ran er wees ete ge ee 
1Z80\MOVE IDOL TO D. 
“Y290\MOVE * TO INOT, 
TZ00\PERFORM PER-65 THRU EXIT<110-5 
“TZ 10\IF Wesc = “999% ADD 7 TO CORCN 
1320\WRITE COMREC fROM OREC Go TQ PER“40, 

NSSCQROD 7 FO PECEHS. ae Le ae a Ree ai a ee ar 
1340O\WRITE PECREC FROM OREC, 

1350\GO TO PERO, He 

136023 FNUD-60, 

13Z70\PERFOSN DIS<=120 VARYING SUB1 FROM 1 BY 7 UNTIL SUB1 > 7, 
VZBONDISPLAY * “, 
T39O\NOVE TNCNT TO 


10 


THOONDISPLAY “NO, SAD = “ DISCNT, 
TETO\MOVE TEMTOTCNT Cut, + 
TU2O\DISPLAY "NOs OF Mimo TOTALS REC = " DISCNT. 


THSO\MOVE NOWDCNY YO DiscNT, 


TUNOG\DISPLAY “NO. OF "O HFADER REC = ° DxrScNT. 
1U50\MOVE CONCKT TO DISCNTs ; 2 St ata a, Cn eae 
|} IHbHO\DISPLAY "NO, OF COMNON Rec WRYETTEN © " prScNT, 
TETONHOVE PECCHT YO Discxr, er 
1HBC\DISPL? “NO, OF PHOCULTAE ¢ WRITTEN = * DYSCNTs 
; W9ION\CLOSE INPGLE PECKILE COMPILE. 


| I500\STOP RUN, 
| IHiOsPER65, 
4526\MNOVE 71 TO SUB. 
IS30 FILE Y=70, ; 
1540\r¥ IFy Noy = TFY (sUB1) So TO SUBI= 400, 
ISHOFITYPe06 

15600\MOVE © TO SURQ, 


MS/ONES SbtYp = C2 RNG OG = “Co fOVve | TO Stee. BP ea ae ei 
4S580Q0NIF ITYP = 03 AND OC = "O" HOVE 2 TO SUBD. 

| 1S9ONIF TTYP = OU EOVE 3 TO SUB2, 
160ONTP I7TYP > O8 Go TO ExIT<11c, 


VO10\IF INat T AED D TO Td (2-SUB1,SUBQ) Go TO EXIT=119. 
16203;1pOlesu. 
1630NADD TDOL To To C1,s5UB1,Sy82). 
1640\GO TO FXrT@11-, 
165035U51~100, 
1660\tF TFY (SU51) = SPACE mOvE ZFY TO TRY (sttB1) 
1670\GO TO ITYP60, 
1669\anD 1 To SUB1, 
469O0\LF SUBT S B pDASPLaY “FY ERPOR*®**™ ITFY 
1700\" TREC = " IkEC STOP RUN, 
1710\GO TO IFY-70, 

1720 ¢RxXITHAT19, 
TTSONEXIT 
7 17HOSDIS-120, 
TIDUNDISPLAY “  BISPLAY * ™, 
A76O\MOVS SUB1 TO DSUR. 
AVTONDISPLAY "FY(" DSUB ") &© * GFY (SUB1), 


‘TTBO\DISPLAY "DOLLARS IN", __ ia 
V7SO\DISPLAY “2 CONTRACT = " TD (1,SUB1,1). 

| 

| 

| 

} 

! 

{ 

| 


J800\DISPLAY "3 ORGANIC = " ED (1pSUB1e2). 
TOIO\DISPLAY “UG TOTAL = * TD (1,SUB1,3), 
TB2O\DISPLAY “DOLLARS OUT, 


q IB3O0\DISPLAY “2 CONTRACT = " TD (2,SUB1,1),~ Tait “ 
q 1BUO\DISPLAY “°3 OKGANIC = " TD (2eSUB1e7), ‘ 
1ESO\DISPrLaAY "24 TOTAL = " TD (2,5U81,3), - 
1B60SSENDIOB orm ee nee 


4 — pias a - = 

| 

i 

{ 

j leat as aa ee a eS ere eee oe = © i ae 

i 

t 

! 

\ 

a ~ 

{ 
| 
{ 
‘ 


“ 
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7 7 nae s 
APPENDIX A.2 

n- TAR OUT a+r lol * - 

PROG A LISTIN a ms S‘ODMDS.S 
: ] 


, 520377 CONFLAG\PIC X VALUE 
5303)1 CREC. 

> SHON'3 peNpre xls), 

550N4S FYVPIC XX, 

560\ 3 RGC\PIC Xe 

5S7ONS KS\PTC XC10}. 


CAVALOG/FILE DESCRIPTIONS 


“TOREM,RUAC) 2,56 163 \p 12,350 
ZOSSIDENT: VPC955, MURER/DEW 
“SOS SLINITS: S7359K- re 
GOSSOPTIONS NOMAP 
bh biel pa we 
OOS?SPR Ce, 
TOTEDENT IFE CATION DIVISION, 
BOFPROGRAM=ID, NODHDS, 
QOSENVIRONMENT DIVISION, 
JOOSCONFIGURATION SECTION, 


“TIO SSPECTAL“NAMES, 
A20\COMPILE ERRORS, 
F3Z03FILE CONTROL, 


VHO\SPLECT COMPILE 
ISO\SELECT MDSFILE aSSI 
T6O0\SFLECT OTFILE 
170 $1-O-CONTROL. 


TRU\APPLY STANDARD ON COMFIT 


_RCS/MODUDS.S 


SpRCS/MODMDS,O 


72751  MODHDS.S ; 


N TO AAs 
GN TO AB. 
ASSIGN TO EBe 


LE HDSFILE OTFILE 


* 
4VOO0SDATA DIVISION, Pia a a ee ae te 
ZOOIFILE Suctron, ; 
2103FD CONFILE 
(220\LABEL RECORD STANDARD, : we oe 
2303 1 COMREC\FIC x(48), i 
2403Fp Mpsrrls ears 
“A25O0\LABEL RECORDS STANDARD, iia ae Wik se a a eS © eee 
2602.21 UDSREC\PIC X(3u). 
2703FD OTFIUE as 4 
2B8U\LABEL RECORD STANDARDS 
290257 GLREC\ SIC FCKSYs 
300 ;WORKING= “STORAGE SECTION, 
FiOS? COMENTUPIC SCT) Vette 0 COMP=t% ~~ - en Es T ae 
3203/7 MDSCETAPIC 267) VALE 0 COuP=71. 
330977 OTCNT\PIC 9(7) Valus cOUPH4, 
SHUSTT DESCNTNPEIC Zt679., 
350377 DOLCNT\PIC 7(6)9, 
366377 NEGCNT\PIc =(6)9, 
MTCC El TOLER ENERR BUGIS) a! ll oe, $F 
380377 DIF\PIC S9(7) VALUE 0 COMPS1. 
390377 SUBI\PIC 9(4) VALUE 0 cOMNPH=1, 
GOOS7TT TKSPYNPIC X(12). 
G10277 SUBD\PIC F(a) VALUE 9 ®ONP=1- a 
620377 SUBS\Prce 99 YalUp 9 cOM?P=1, 
R30377 SUBD\PIC 9, ‘ ‘ a es ae 
su0:77 SUBU\PIC 99 VALUE 0 COMPC1. 
G50577 INOTN\PTC 9 VALUE 0, 
660377 PCTeTOT\PIC 99¥99995 VALUE © COMP, 


G7C377 PCTHNPIC 
UB0S77 NOCNI\PIC 9(7) 
GIOTTT HEYVPIC XX. 
500¢77 NHOEVPIE X, 

510377 NDFLAG\PIC x 


29,9999, 


VALGUS 


VALUE 


SPACE. 


O COMNP-i, 


SPACE, 


! 
580\03 MDS\PIC X(1°), 
| 590\03 WHS\PIC X(5)e 
{ 6C0\ 3 CUS\PIC XXX, 
i} O10NUS OC\PIC xX, 
| 620\3 FAC\PIC XX. 
630\03 RUC\PIC XX, 
6G0\03 DRAWAPTC X, 
650\ 3 CD\FIC 9(7), 
660201 NREC, 
6703: U2 MKSFY, 
680\"'3 MKS\PIC x(1.}, 
i 690\03 MFy\Prle xx.- 
700: O2 MMDS\Pre x€15), 
710: O2 MPCT\PIC X(6). 
720: O2 pcT REDEFINES wpe? Prec 9V99999, 
7302 OF PEELERNPIC XX, ry et tae eae 
' 4 OREC« 
1 F50\°3 Pe\ric xs), 
| 760\C3 FY\PIC XX, 
| TTENTS RGECKPIC Xs 
| TOO\S KGNPTC X(10)._ 


TG0N03 HDS\PIC X{7-}. Se een Oe ba Laos fe are 
BOO\'3 WES\PIC X(5)% 
BONUS CUS\Pre XXX, 
B20\'3 OC\FIC xX, 
SIONCF PACNPLC XX. 
ey COR CeO ree aes ee ee ee Ee Nee Te oD 
BSO\. 3 DRAW\PIC Xe 
BE0\/3 DNPIC 9(7). 
B7001 RECTAB, 
BYBUL'3 TREC\PIC X(48) OCCURS 104, 
3 DS\FIC 9¢7) COMP=4 OCCORS 1606 

9008.4 ChSr¥, 

GiUN) 3 CKSNPIC x42). 
| S20NUS CFY\PIC XX 
{| 9303 1 TAR. 
| Se0e 02 TT Occurs 3. 
| 950\ 3 T2 OCCURS 7, 
| 960\ OS TL\PTC 9(7) OCCURS 2, 
| 


evervaner WAY 


2 rook 
co = 

S 

” 

w 


F7OF04 FYTARs 
| 9603 O02 F4 OCCURS 7, 
| 990N\L3 TEY\PTIC XX, 
| 1000201 DIFTAB, 
1010\03 DrFCNT\pIC $9(/) Compe oCCuRs 7, 
JOZOSPROCEDURS DIVISION, 
“TOS03STARTHU, 
1O4O\OPEN INPUT COMFILE MOSFILE OUTPUT OTFIL®, 
1OSO\MOVE SPACES TO FYTAR, 
1OGO\PERFORKM ZERO@S6 VARYING SUB2 FROM 4 BY 4 UNTIL 
| 1070NSUBZ > TOL, 
| 1O8GSREAD@ 10, =e 8, ie fie 
12 TO90\READ HDSFILE AT END MOVE "2" TO MDFLAG GO TO EXIT#15. 
T100\MOVE MOSREC TO MREC, 
1110\ADD 1 To mMDScHT, 
19 112088XIT=15. 
le TISONEXI?. 
VILOEREADH DO, 


V1SONREAD COMPILE AT END MOVE "Z" TO COMPLAG GO TO EXIT=25,  —— 
T160\MOVE COMRES TO CREC, 
VATONADD 4 TO CONCNTe 

i3 A. 2-2 


; 118O0\MOVE KS OF CREC TO CKS MOVE FY OF CREC TO CFY, 
E VIGONPERFORMN MOVE=150, 
12U0\MOVE *° To INOT. 
“TSTONPERP ORM FoR@o5 Thkg Lil Le 1.0, °° © 
1220S EXIT=25,. 
Leo CORR SNE Glace = eno ee ea | Ge gee fae ee Te ee a ae 
| 12W0:CHECK=30 
| T250\IF CONFLAG = "Z" GO TO END=90, 
: 1260NIF HDFLAG = “Z" PERFORM DIS=35 DISPLAY “FARLY END ON COMPILE” 
| “IZ7TONGO 26 ENS-3e,CO:CSCS 
| 128O\IF MKSFY < CKSFY PERFORM READ@ 10 THRU EXIT#15. 
1290\GO TO CHECK=3 , 


I | 1Z00\IF MKSFY = CKSFY Go TO EQUAL@=4o, 

} | TITOIDIS$35 he ewiie sit-in St Cea Wt ate Sak tae es ee 

| 132O\DISPLAaY “KS AND/OR Fy NOT FOUND * CKSFY 

i ge0k- tone nee = seeec. ee 

| 134U0\ADD 1 TO NOCNY. 

TBSO\PERFORM “1O0VEW 150, 

{ 1360\NOVE Z TO INOT. 
1Z7O\PERFORM PER"95 THRU EXITS 149, 
1360150-57. 

“4390\G0O TO READ=20, 
THOOSEQUAL=49, 
WWTO\NOVE 7 TO SUB, 
IU20\MOVE 9) TO De 
AUSOVNOVE G FO PCTSTOT, SS ear es 

| 14UQO\MOVE CKSTY TO TKSFy, 

| “TUSOsHOVRSSUL ee ae, oC ee ee ELE Ge On ei ae ae 

| 

| 


eT Te ere 


1U6O0\IF SUB1 > 100 DISPLAY “TABLE OVERFLOW" CO TO END@ =F), 
IV7O\MOVE CORR CREC TG OREC, 


} 
| 
1 

ne ee te ete reno Ammen ne mm See 


| 1UBOsMoVL=F9, 
1UOO\ADD CH To D 

| 4500\MOVE OREC TO TREC ($U31), 

| “ISTO\pERFORN READ|SZ) THRU AXLTMZ< 
| IS2ON\IF COMFLAG "2" Go TO PER=70,. 
| IS30NIF HMKsry NOT = ; 

{ 

| 

| 

} 

| 

| 


ti 
0 
Le 


Cc 
TSHON\TE RGEC OF CHEG = 
1550\ALC OF CREC = AL 

560\CUS Or CREC = cU 
“TS7ONWBS OF CREC = WR 
T58O\PAC OF CREC = FA 
1590\CC OF CKFC = oC OF ORFC AND 

1600\MDS OF CPEC = NDS oF QREC AND 

1670\DRAW OF CREC = DRAW O# OREC AND 

1620\PC OF CREC = PC OF ORK GO TO MOVE~60 

| TesOunove Guu Dp; : eae aoe ee eee sro 

| 1640NADD 1 TO SUB1, 

| 1650\GO TO NOVE=50, 
16603pERS7>. 

| 670NEXANINE MPCT REPLACING ALL" " BY “O", 

| 168ONADD PCT TO PCT=TOT, | 

 TE9O\PERFORM MULT=60 VARYING SUB2 FROM 1 BY TUNTIY SUBZ > SUBT, 

1) T7CONPERFORKM READ@|10 THRU ryIt@15, 

V7IO\NIE MDFLAG = "4" GO To yFe75, 

(> 1720N\IF TKSFY = MKSFY Go To PER@70, 

ls TTIOCLE? 75 ¢ : ; ; ay ae 8 
ATMONIE FovteTOT <¢ ,99 OR PoreTOT > 1,01 ¥ :Y 
“FISC\DISPUNY "FREER AN POTKL “ PeTD ”* For "aKSPY 
1TGO\NOVE TO PCT<TOT. 

I77O\PERFORM CONP<85 VARYING SUB2 FROM 1 BY 4 UNTIL 


17BO\SUB2 > SUB1, ee: : ik ewes 
179O\PERFORM ZERO@86 VARYING SUBZ FROM 1 BY 4 UNTIL 
1800\SUB2 > SUB1, 
“T810\GO TO CHECK=3 
1B2Z0SMULT@EU, 
VBZ30\MOVE TREC (SUB2) TO OREC, 
18UO\MULTIPLY PCT BY D OF ORES ROUNDED, 
1850\ADD D OF OREC TO DS (SUE2), 
1860\MOVE HMDS TO KDS OF OKEC, 
FISPONEEREORM MOVRe lOO ma see ne ee Pe 
18G0\MOVE 1 TO INOT. 

IBYO\PERFOnU PER@95 THRU BXITe140, 
19O0\WRITE OTREC FROM OREC, 

AQIO\ADD 1 TO OTECNT, 

1O2Z08CONP=45, ae 

“FO30\MOVE YREC (SUB2) To OREC, 
IDLO\MOVE 1 TO SURB3. 

VOSON\PERFOFN FiOVERe87 THRU EXTT]=8k, 

1960\COMPUTE DIF = DS (SUB2) » D OF QOREC, 
1970\ADD DIF TO DIFCNT (SUS3), 

1980S FY OVERB7, 

1990\EF FY OF OFC = TEKY (SUB3) GO TO EXIT=Ré5, 
2000\apn 1 TO SUB3, 

2ZO10\IP SUBS > 8 DISPLAY “Fy ERROR***” FY OF OREC 
2020\" OREC = “ OREC STOP RUN, 

2030\GO TO FMOVE=87, mat = 

2OUCTEYLTHW6H, 
2050\EXIT, 
2OFCOSZEROMEE, 
2070\MOVE © TO DS (SUB2), 

2OBOSEND=90, 

ZOSO\PERFORM DIS=170 VARYING SUB3 FROM 1 BY 4 UNTIL SUBS > 7, 
ZIGONDESELAY * “y 

2710\MOVE COKCNT TO DISSENT, 
2ZiZ0NDISPLAY "NO, OF COM REC READ = “ DISCNT, 
2130\MOVE MDSCNT TO DISCNT, 

Z14O\DISPLAY “NO. OF MISTR REC READ = * plSseyt, 
2150\MOVE NOCNT TO DISCNT, 

2160\DISPLAY "NO, OF COM REC NOT FOUND = " pnyxscnt, 
2170\MOVE OTCNT TO DISCHT, 

Z1BO\DISPLAY “NO, OF REC WRITTEN = “ DISCNT, 
Z2190NCLOSE COMFILE NDSFILE OTFILE. 

Z200\STOP KUN, 

2210S PER“95, 

Z2ZONH0VE + TO SUBS, 

22303HFY-100, 

22GO\IF HRY NOT = TFY (SUB3) gO TO SUB3-130, 
Z2508MOVE™W 1108 

Z260\MOVE © TO SUBSE, 

Z2270NIF HOG = “C" MOVE 4 TO SUBY FLSE MOVE 2 To SUB4, 
Z2BO\IF INOT = 1 ADD D TO Tp (2,S5UB3,SUBh) 

Z290\GO TO EXIT#1G5. ~~ ee aC ; 

2300N\IF iNoT = 2 ADD CD To TD (3,SUB3,SUB4) 

2310\GO TO FXIT=14 , 

Z320SINDOL" 1206 

233GNADD Ch TO Tb (1,5UB3,S5u84u). 

2340NGO TO EXIT=14 , 
2350ssysi8130, ~~ 
2360\IF TFY (SUB3) = SPACE HOVE HFY TO TFY (cUR3) 
2370NGO TC MOVEH11 , 


Ae 2-4 


2380\ADD 4 TO SUB3, 


QI90NIF GUnS > GB DISPLAY “Fy ERROR***" HEy "= = = &#~&  #&=&« ©FCtCti‘S=S 
2400\" cREC = ™ CREC STOP RUN, 
SEtONGO 26 Hev=t20,, °°. . .° © eee 
2U20EXIT=<$7140, 
20S0NEXITS TAR OEE eg Me? ahaa Pag tae a cige mareae ts 
2U40:HOVvHS 190, 

| 2u50\NOvE 7Y OF CREC TO HRY, : ae i a a a 
2460\MOVE oC OF CREC TO HOC, 

| ZUTOT MOVE 160, SET Eat 2 ie ee ea ee ae a ae 
248O\MOVE FY OF OREGC TO HFY, 

| 2U90\MOVE OC OF OREC TO Hoc, ‘ae oe La S a eas 

| 2500%pIS~170. 

| 2S1ONDISPLAY “ “ DISPLay “ "| 

| 2520\MNOVE SUB3 TQ SUBDe_ pene, a 7 bee Ae er etal aoe 

| 2530NDESPSRY “PYC® SUBD “) = © TRY (SUBS), 

f 254O\DISPLAY “DOLLARS In", = 
ZSSONDISPLAY “CONTRACT = " TD (1.5083, 1), i. 

| 2560\DISPLAY “ORGANIC = “ Tp (1,SUB3,2), a 

| ZS 7ONDISPLEAY “DOLLARS Our”, 

F 42500 \DISPLAY “COWTRECT = “ Pb (29SUBSe 1), 7 

| 2590\DISPLAY “ORGAKIC = " Tp {2,SUB3,;2), © Seay eye ae 

} 260O\DISPLAY "DOLLARS Not VRITTEK", 

| 2610\DISPLAY “CONTRACT = " TD (3,S5UB3,1), < 

2O6Z20\DISPLAY "ORGANIC = " Tp (3,S5UH3,2), ‘A 

| 2630\MOVE PIFCNT (su83) To NEGCHT. : . 

| 26UO\DISPLAY “ROUMD-OFF DOLLARS = “ NEGCHT, 

| “ZeS5oSsuNPgoR areas : _ 

| Sows ee : 

! 

| 0s. eee omen — — - — — —— es — —_ a ee _ _ _ —_ 

| 

| e : : 

| 

j 
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ad 


APPENNIX A 


PROGRAM LISTINGS =- MODWRS.R = MODWRS.S 


CATALOG/FILE DESCRIPTION= RCS/MODWBS,K 


;} OPER eRCAC? i. 2 Se OS. 0 DRE ers a 
| 2O0SSIDENT!NP0955,L0RER(81) WILKELM 72754 MODWBS,P 

{ JOStLIMITS: 15. 5¢e9K a a ae 
| wOSsOPTION:NOMAP 

| 50S SGMAPSNDECK 
6036°0SM 

| “OPSORT!FCS,», 10 
| BOEFIELD!(C1,C3,04,55,01,010) 

| 9O3SEQ3(A6,AZ2) 

| IOOSFILCBSFCB,**s2 

V10ShND 

F2USTEXECUTS 

“TSUS SPRNFLISA,R,S,ANR/SPAGE,B 
1WOSSFILESS1,SiR,5x 
ISOSSFILELS2,S2Rp5R 

1160S SFI psSs_,pSaiy Sn 
TIOSERILE SSA ek 1S 9 VOL 
IBOSLOPTION:COBOL,NOMAP 
TOOUSISELECTIRCS/FEODVES2O 

| 2ZO0USIRXECUTE 
2VOStTHTMTTS © Spey ok 
2QUSITAPOIAR,X1D,, 74845, »MODRAY 
| Z30SSFILFLAB,F1R, 1-1. . 

| 240SSTAPESEB—XZD— 4 7665 14 ¢MODKAN/RING 
25US SENDUON 


CATALOG/FILE DESCRIPTIGN= RCS/MODWEBS,S ee ee 


OOT0##M,R(AC) S06, 168 \910,30 Ps sca occa ee Mat th at 
OOZ0S2IDENTIWPCOS5,MMRER/DEW 72751 MODWBS,S 
OO3SOSSLIMITS: 15¢95.9K : 
OOVOSSOPTIONSNOMAP 
OO5CS3;COBOLSDFCK 
OO6OS:PRMFLIC*,W,S,RCS/MOD*BS,0 
“OOJOSTDENTIPICATION DIVISION. 
QOBOPROGRAM=ID, MODWBS, 
OOYOSENVIRONMENT DIVISION, 
O1O0SCONFIGURATICN SECTION, 
OTIOSSPECIAL“NANES, ; 
O120\COMPILE ERRORS, 
“O130SFILE CONTROL, 
OIVONSELECT COMNFILE ASSIGN TO AA, 

O150\SELECT WRSFILE ASSIGN TO AB, 

O160\SELECT OTFILE ASSIGKX To BBe 
O17OSTHO-—CONTROL, 

O1BONAPPLY STANDARD ON COMFILE WBSFILE OTFILt, | 

O190sDATA PIVISION, 

O2003FILe skECrroy, 

O2108FD COMPILE 

O220\LABEL BECOKD STANDARD, 

0230801 CORREC\PIC X(48). 

O2UOSFD WRSFILA . 

O2Z5O0\LABEL RECORD STANDARD, 

0260501 WBSREC\PIC x(84), 

O27OSFD OTFILE 

OZEQ\LABEL RECORD STANDARD, | 

0290301 OTKREC\PIC xX(54}, , 
OZOO0SWORKING=STORAGE SECTION, ss 
0310877 CONCNT\PIC 9(7) VALUE © CONP=1, 
0320377 WBSCNT\PIC 9(7) VALUS 0 COMP=1, 
0330877 OTCNT\PIC 9(7) VALUE 0 COMP=1. 
0340377 NOCNT\PIC 9(7) VALUE 0 COMP=1, 
0350:77 DISCNT\PIC 27(6)9, 

0360377 SUBI\PIC 99 VALUE 0 CoNPe1, 
0370877 SUEZ\PIC 99 VALUE 09 CONP-1, 
0360377 INOT\PIC 9, 

0390377 SUED\PIC 99, 

OROOST? HFYNPTIG XX, 

QU10377 HOG\PIC X. 

O420877 CFLAG\PIC X VALUE SPACE. 
043037/ WFLAG\PIC X VALUE SPACE. 
0440801 CRC. 

OU5O\O3 PARTI, 

OU60\ OS FILLERN\PIC X(4), 

O70N OF TPYNDEC XX, 

O4BO\N O5 INGC\PIC X. | 

OWUGO\ OS FILLER\PI Cc X49), ~ 

O500\03 MDS\PIC X(10). 
0510\03 CWES. 
» UBZO\ OS FPINELE X, 
O530N O05 FILLERNPIC XXX, 
» O540\ OS p2\pic x, 
O550\03 PART2, 
OS60\ O05 FILLER\PIC X13), A. 3-2 
4 0570\ O05 TOC\PIC Xx. 


O580\ O05 FILLER\PIC X(5), ; 
O5¢0\03 p\PIc 9(7), Te =. tara ee a Sa ox 
0600291 OREC. 

FUCLLUNO GED RR Rial MGM MARIS e Snes s ee Ge Pt ee ee ee eee 
0620\ O05 FILLER\PIC X(4),. 


Q630\ O05 FY\PIC Xx, A ie ee we POS ee Ae ges el Rei) Gea pe 
O64O0\ O5 FGC\FIC xX. 

O650N COS FLEVERNPIGC SCHOO}, © 95° vw 8 = = 
0660\03 MDS\PIC X(10),. 

O67O\0S OWRSe i oS pe ay gp Soe as 


O680\ O5 P1\PIC X, 

OG69ON OS WESC\Pic 225, °° —" 
O700\ 05 P2\PIC X, 
PSO NGGuMaRe eer. oi) te ep ee a 
} O720\ OS CUS\PIC XXX, 


UrsauN US GeNRtC ky. 
O740\ O5 PILLER\PIC X(5), 
V7ISONGS PNFIC Gti) 
O760\03 MD\PIC X(5),. 
OFTONOS GUSSNPEC x5 
O780!:01 NRre, 

OTSCMGS FILLER SPIC kK, 
OgO00\03 WB\PIC XXX, 
O816\03 FILLER\PIC ¥-e 
O820\03 MDIN\PIC xX(5). 
OSS0N0S FPIULERNPIC x. 
OBUO\O3 WKDS\PIC xX(10). 

“OBSO\OS FILLER\PIC X(635), 
O860:01 TAK, 

O870% 02 FT 6CCURS 3. 

O880\03 7T2.0CCURS 7, 

| O890\ 05 EP\PIC 97) OCtuRS 2) 
j; 0900201 FYTAB, 

if 


Cera chy Sh acCCLss 
U920\03 TFY\PIC Xx. 
OSZ30SPROCERURE DIVIsIoN, 
O9UOSSTART=0. 
| OGS5O\OPEN INPUT COMFILE WBSFILE OUTPUT OTFILY, 
O960\MOVE SPACE TO FYTAB, 
OOlOEREAD@=106 . #« 
OOBONREAD YBSFILE aT END MOVE "2" TO WFlaG Gn TO EkIT-15, 
O990NHOVE KBSREC TO WREC, 
10U0\ADD 1 TO WRSCKT. 
TOT0SEXIT“156 
1OZO\EXIT, 
“FO3S0SREADH20, 
TOUO\READ COMFILE AT ENp MOVE “"Z" TO CFLAG Go TO EXIT#=25, 
TO5O\MOVE COMREC TO Cpréc, 
1060\ADD 1 TO CoMenT, 
JO70\PERFORM MOVES150, 
| 1O8O0\MOVE ¢ TO INOT. 
FOOONPERFORM PER=9 THRU EXITS 140. 
V1008EXTTH=Z5, 
o TITO\EXIT, 
11203MOVE"306 
1130\MOVE SPACES TO ORES, 
/ 14UO0NHOVE PART? OF CREC TO PART’ OF OREC, 
¢ TI5O\HOVE 105 OF CRC To “DS OF OREC, 
4160\MOVE PART2Z OF CREC TO pART2 OF OREC, 
T17CO\MOVE D OF CREC TO p OF OREC, oa 


\ 


1180\MOVE CORR CWRS TO OW 
11903PFR-“UU, 
V20O\PERFORM READS20 THRU ExI?e25. ss  CisCiCitCt 
T210\IF CFLAG = “Z" Go TO MiATCH-50, sis 
1220\IF PART1 OF CREC = PART? OF OREC AND 
1230\MDS OF CREC = tiDS OF OREC AND _ 
12UO\CWES = OWES AND 
T250\PART2 OF CREC = PART2 OF OREC 
1260\ADD D OF CREC TO D OF OREC 
1270\GG TO PER<4¢ 
12BO0IMATCHH59, 
1290\IF WFLAG = "2" AND CPLAG = "2" GO TC ENn-80, 
1300\IF WFLAG = "Z" DISpLAY "MDS NOT MATCHED*®**" CREC 
1310\GO To EnD<8C 
1320\IF "DS OF ORC > “MDS PERFORM READ=10 TKRU FXIT=415 
“9330\GO TO HatcH-5_, , 2 ge 
1340\TF MDS OF ORFC = «MDS MOVE WB TO WBSC 
1350\mMoVe MDIN TO HD GO TO WRITE<6u, 
1360\ADD 1 TO NOCNT. 
TZ7TO\PHERFOR™ NOVER156, 
138O0N\MOVE 2 TO INOT. 
“AZ39O\PHRFORL PER°O. THRU EXITT-T4e, 
1HOONDUSPLAY "MDS NOT IN 3PAGE<B “ OREC, 
1HIO\TFE CFLAG = "Z" GO TO ENDes., 
IUZO\GO TO MOVE=30, 
WW30ENRITER60, 
TUUO\PERFORM MOVE-160, 
“FUSO\MCVE {+ TO INOT. 
FUGO\PERFOR! PER@9 THRU Exrtel42, 
1G7ONMOVE "S"™ TO CUSS, 
4U8ONUF Cus = “APR” MOVE @4" TO CUSS+« 
AUSONTE CUS = “ANG! MOVE "2" TO CUSS, 
W00\Tr cus = “DA “ NOYE "3" TO CUSS 
A4S10N\IF CUS = “DAP" MOVE “ua TO CUSS, 
15B2ONTF CUS = “DN * MOVE "S© PO CUSS. 
TSSONTE Cus = "MAC HOVE "EB™ FO CUSS, 
res CUS = “MAP” NOVE “7" vo CUSS. 
S50\rF CUS = “SYS” MOVE “S* TO CUSS, 
isnnteute OTREC FROM ORHC, 
iS /7ONSDD 1 TO OTCHT. 
1580\IF CFLAG = "Z" GO TO BND=8U, 
1590\GO TO MOVE<30, 
16008 FrNeeo, 
16 10\PERFORM DIS#170 VARYING SUB1 FROM 1 BY 4 UNTIL SUB1 > 7, 
TEZONDESPLAY © 
1630\MOVE COMNCNT TO DISCNT, 
164U0\DISPLAY "NOs OF COM REC READ = “" DISCNT, 
A65ONUNOVE WESCNT TO pIscNT, 
1660\DISPLAY "NO. OF 3PAGE REC READ = " prScyt, 
4670\MOVE NOCNT TO DISCKT, 
16B0NDISPLAY "NO, OF COMREC NOT HATCHED © " nIScCNT, 
1690NMNOVE OTCHNT TO DISCKT, 
TTOONDISPLAY “HOe OF REC WRITTEN & “ DISCNT, 
ATTONGLOSE COMPILE WESFILE OTFELE. 
1720\SToP a 
ITSUSpeReGe 
ATUONMOVE 1 “ro SUB, 
1ISOSHFY" 100. 
A7OONIF HEY NOT = TFY (SUB1) gO TO SUB1"130, 
4 17703 sMOVE@ 110, 


i 


1780\MOVE © TO SU82, 
F79O\IF Hoc = “C” HOVE 4 TO SUB2 ELSE MOVE 2 TO SUB2. 
1BOO\IF NOT = 1 ADD D OF ORES TO TD (2,5U81, SUB2) 
“830400 £6 SLit+1., & #&#&3727§C=CSCS«7;73PStéi‘i‘“ SR cre torres 
18203;n0Le120, 
T83SONADD D OF CREC TO Tp (1,SuU81,SUB2), 
1B4O\GO TO EXIT-14 , 
“V8SO0ssSunt=130, 
1860\IF TRY (SUB1) = SPACE MOVE HFY TO TRY (SUB1) _ 
“T87O\GO TO MOVE=11 
18EO\ADD 1 TO SUB1, 
VESO\IF SUE1 > 8 DISELAY “Fy EKROR***" Hey 
VIOGON" CREC = " CREC STOP RUN, 
1910\GO To HFY=1.0, 
W920SEXITS 140, 
“TOSCNEXIT, ha eee 
19UOSMOVE™ 150, 
TSESONHOVE TEY fO HEY, 
1960\MOVE TOC TO HOC, 
1970SMOVE 160, 
198O\MOVE FY TO 
199C\MOVE oC TO 
2000! DIS“170. 
2ZOTO\DLSELAY © " PESPEAY ©, 
202Z0\MOVE SUB1 TO SUBD, 
ZO0SONDISPLAY “PY(° SUBD “) “= © DRY (SUBT). 
ZOUO\DISPLAY “DOLLAR 
ZOSO0\DISPLAY ieone? 
ZOGEC\DISPLAY “ORGENI ‘¢% SE, 2), 
207O0NDISPLAY *LOLLARS t 
ZOBO\DISPLAY “%CONT: 
2ZOS9O\DISPLAY “ORGANIC 
21I0O\DISPLAY “DOLLARS 
ZT1O\DISPLAY “CONTRACT i pSUB1, 1), 
2120\PISPLAY “ORGANIC = ; SUB 192), 
21309 SENIOR 


” 


‘ : 
APPENDIX A.4 
PROAGRAM LISTINGS = MONTOT,.R = MONDTOT.<¢ 
/ ‘ a > es . 
: 
t 


= 
| CATALOG/FIZLE DESCRIPTION= RCS/MODTOT,R 
{ 
| 


“FO##N, RCAC) 

ZOSSIDENTIHPI95S,LORER( 81) _ WILHELM 72751 MODTOT.R 

"SOSAL THIS Wop peak Nels EOLA. a ae at a Sy eg Oe 
YOSSOPTLIONSNOMAP 
“BOSIGMAPSNDECK 

6036°0S5éM 

“TOSSORT:FCup,9 | 

BOTFIELD? (C4,C2,C1,025,C63,01,04,01) 

9OSSEQ? (AZ, ASeDBeAGeA3) ; 
1OOSFILCBIFCB,**,2 

| T10°SEND 

1205 SEXECUTE 

| 

| 

| 


CSTR SONS eyes Hi Ee RR eeu phcce fe ke a Toa cnt nei age AAR OC pm okay a tear a Ma emesis 
TUOSSTAPE ISA X 1044 760057, 4UDRAN 


“TISOSSFILESS2,52Re55R ae, i a 
1160S SFILESS2,52R,55K 
TVOSSFILESS3,S83K, 55K agers rg ee ar a 2 oo 
BUSS FILES S4,S48,55¥ 
TOOSTRILE §: ee es 
ZOUS LOPTION $COBOL, WOMAP 
Z1OSSSHLECTIRCS/MNODTOT.O Bae see Na ie = Sa ee ae eet eee saa. 
| 220S¢6FXE Soka, 
ZISSILININS 7 Sp pon Rae aa dinar til i 
| DUCSEFLLE TAA, hy 2 102, 
| “250S?REMNOTH EBB, AC By a i gas ae aa, WN Aa aia fer aaa A BL Ge 
| 26CSSpPRNFL* BC yWe Se RCS/EKEOPER 
2790S spRHFLIBD, WeSpRCS/SREQDOL 
| 280$3ENDJOg 
| 
} 
| Sette an pre tr TE EL a SEA SET Pe OO a ETE NO SEE ee ROE EEL Oe eae 
| 
| a ea = - <= = 
| 
| 
{ 


| 
| 
| 
| 
| 
| 
| 
| 


TOONAPELY STANDARD ON INFILE OTFILE PERFILE FEQFIIE, 

2OGEDATA DYVISION, 

21008FILS SECTION, 

220:FD INFILE 

Z30\LRBUL KECORD STANDARD, 

2403 1 INREC\PIC x(54),_ : 

2503sFD OTFILE 

ZEO\LABSL RECORD STANDARD 

27ON\REPORT IS TOTREPOKT, 

2B0SFp PERFILT 

ZOU\LABEL RECORD STANDARD, 

300801 OTREC\PIC X(N8)o ake Set a OS Aa 

3102Fp REOFILE 

32U\LABEL RECORD STANDARD, 

S30¢' 1 REGREC\PIC XY (58), 

3UOSWCRKING=STORAGH SECTION, 

350377 INCNT\PIC 9(7) VALUE O COMP=1, 

360:77 NOCNT\PIC 9(7) VALUE 0 COMP@ie ay on 

370377 OTCKT\PIC 9(7) VaLuH 0 COUP=1, 

380377 CUSTOT\PIC 9(7) compe’, 

390377 DRAWTOT\PIC 9(7) Conp=4e 

40077 DISCNT\PIC 7(6)4, 

&10:77 SUBI\PIC 99 VALUE U COMP=<1. 

4203/7 SUR2\FIC 99 VALUE 0 COMP=1. ; eee: 

430277 SUB3\PIC 99 VALUE 0 CONP=1, 

440377 HFY\PIC XX, 

450377 IFY\PIC 99 VALUE O Coiipel. 

W6C377 TOC\PIC 99 VALUE O CoMp=1, 

K70201 SUMTAB, 

4808 U2 TcCYUS OCCURS 1; = Bes rah 

WOU\ 3 TDRAW OCCURS 4, 20 as SS EPS 
‘500\ 8 ToPoOL\PIc 9(7) occuRS 7. 

510\ 05 TODOL\PIc 9(7) Occurs 7, 

5203''1 IRFC, 

530\ 3 FILLER\PIC X(4), 

SUC\ 3 FYN\PIC XX 

550\' 3 RGC\PIC X, 

560\ 3 FILLER\PIC x(25), 
+ STON) 3 CUS\PIC XiXe Ae d=2 


CATALOG/FILF DESCRIPTION= RCS/MODTOT,S 


72751 


4OFHRRURC) SoBe 163 Np 12,30 
20SSIDENT:WPO9S5S,LORER(81) CyW 
30S :LINITS: \Seee9K 
LOSSOPTION;NOMAP 

50S :COBOLSDECK 
6OSSPRMFLiC*,¥,S,RCS/NCDTOT,O | 
TOSIDENTIFICATION DIVISION, 
BOSPROGRAM-ID, MOPTOT, 

QOSENVIRONNENT DIVISION, 
VOOSCONFIGURATION SECTION, 
VIOSSPECIAL=NANES, 

SPAZONCOMP ERS ERRORS: 5) 
1Z303FILE CONTROL, 

TUO\SFELECT INFXLE ASSIGN TO AA, 
ISO\SELECT OTFILE ASSIGN TY BB FOR LISTING. 
160\SFELECT PEREFILE ASSIsN TO BC. 

IVO\SELECT REQFILE ASSIGN To 8D. 
18OsT-O-CONTROL. 


MODTOT,S __ 


580\'3 OC\PICc X, 


SIGNCT FELLER\esc Ll. =  ©83SCCOrrstSS—S—SOCN CT 


600\03 DRAw\PIC X. 


CONG SCG Cen ete) ae Gee ee eS ee ee ee 


620\.3 FILLER\PIC X(6). 
6303.41 PREC. came ee 4 aimee = 
O40\.3 PFY\PIC XX, 

| SS0NC7 PeUSstPre xxx, 
660\' 3 PDRAW\PIC XxX. 

| “6TON 3S PERDRAW\PIC FVI(U), 

680\3 POC\PIC XxX, 

| GSONCT EPROCNPIC OVS, aed 
| 

| 

| 

| 

i 

| 

| 

| 

1 


7TOO\:3 PACFT\PIC 9VO(4), 


“T1IO\' 3 PMISS\Fic OVG (4), a a a ee digas ae 


720\. 3 PEXG\PIC YVS(4), 
“TIONTS POMET\PTC Pv (hy. 
TUO\' 3 PEXCH\PIC OV9(4), 
750\° 3 PABMA\PIC 9VG(4), 
760201 RQEYCe 

77TO\CS REXYNPLC 2X, 
7BO\C3 RCUS\PIC XXX. 


OUNCE A Cee poms ont re. Wall alenr omcrtamt tq fe ee 


BOO\.3 ROC\PIC Xe 

BiONUS RACEINRIC F(T}. 

B20\03 KMISS\PIC 9(7). 

B30\U3 RENG\PIC 9(7) 

B4O\'3 ROMEI\PIC 9(7 

“650N\03 REXCHNELIC 9(7 

860\ 3 RABINPIC 9(7) 

S7O\C3S FILLERNPIC x 

BBOS' 41 CTAB. 

B9ON\V3 FILZERNPIC x(30) VaALUA 

QOO\"AFRANGDA DAFDN MACMAPSYSOT HTOT", 

910311 CUSTAB REDEFINES CTAB, 

920\' 3 CUST\prC XXX accukS 40, 

930271 DTAB, ad 

QUO\US FILLERNPIC X(12)} VALUE * R oD A for, 

950351 DRAWTAS REDEFINES DTAR, = 

960\ 3 DRAT\PIC X(3) OCCURS 4, 

“G625°1 DRTABe 

964\°3 FILLER\PIC X(4) VALUR "RDA "™, 

966:°1 DWTAR REDZFINES DRTAB, 

968\ 3 DEAS\PIC X occlRS 4, 

Q7USREPORT SECTION, 

| QBOSRD TOTKREPORT 

| QS9O\CONTROLS ARE CuST (sus1) roc 

| 1OO00O\PAGE LIMIT Is 55 tiare 

| FTOTO\HFADING 4 pS a ae 
1020\FLRST DETAIL 3, 


)» 


° 

Oc big ripe a noe canta ie laa 
Fe 

9 


| 1030801 TYPE IS CF CUST (SUpi) NEXT GROUPD IS NEXT EAGEe 


10403 
“4050501 


10603 


1070\03 
10ECN\OS 
1090:01 
11003 
TI1VGN03 
1120\03 


02 LINE PLUS 04, 
TYSE ES CH L0Ce 

02 LINE PLUS O41, 

COLUMN 4\PIC XX SOURCE Fy, 

CouUMN UNpre XXX SouRcE CUST (Stp1), 

TYPE IS PH, 

02 LINE PLUS ve 

“OLUHN T2NSIGE GW VALUE "RCE IT, 
COLUMN 21 \srZr 4 VALUB “MISS*,. 


| 4 11130\03 COLUEE 3U\STZE 3 VALUE nt Lo a . 


Sa A A A <P 


| 
| 


ee area 


114U0\03 COLUMN 39\STZF VALUE “OMEI™, 
‘4150\03 COLUMN GE\STZE VALUE “RXCH", 
1160\03 COLUMN 5/7\SIZE VALUE “A/B/N", 
“T170\03 COLUMN 66\SIZE &Y VALUE “TOTL", 
1175\03 COLUMN 75\PIC 4279 SOURCE PAGE=COUNTER, 
118001 OL TYPE DE LINE PLUS O02. 
1190\03 COLUMN 2\Pre Xxx SOURCR DRAT (SUB2), 
1200\03 COLUMN 6\SIZE 71 VALUE "O". 
12170\03 CCLUNN 9\PXC Z(6)9 SOURCE TOPOL (Stini1,SNB2,1), 
“4220\03 COLUMN 1@\FIC 2(6)9 SOURCE TOPOL (SUK1,SUBZe2)e 
1230\03 COLUMN 27\FIC 42(6)9 SOURCE TODOL (SUH1,SUBZ6e3)e 
12UO\03 COLUMN 36\PIC 2(6)9 SOURCE TODOL (SU51,5UBZe4), 
1250\03 COLUMN GS\RIC Z2(6)9 SOURCE TODOL (SUB1,SUBZ9)¢ 
1260\03 COLUMN S&\PIC 2(6)9 SOURCE TODOL (Stu1,SUBZe6)¢ 
1270\03 COLUMN 63\PTC 4(6)9 SOURCE TODOL (SUH1,SUBZe7). 
1280201 CL TYPE DE LINE PLUS O02. — , 
1290\03 COLUMN 6\SIZE 1 VALUER “Cc. 
1300\03 COLUNN 9\PTC Z2(6)9 SOURCE TCDOL (SUB1,S!H2,1), 
1310\03 CoLUMN 18\prc 2(6)S5 SoURCR TepoL, (SUx1,SUB2,2), 
1320\G3 COLUMN 27\PIC 2(6)9 SOURCE TCDOL (SUK1,SUBZe3). 
1330\03 COLUMN 36\PIC 2(6)9 SOURCE TCDOL (SUn1,SUBZ04)¢ 
“F3UONOS COLUHN GO\PIC 2(6)9 SOURCE TcpDOL, (SUs4,SUB2,5), 
1350\03 COLUMN SUY\PIC 4(639 SOURCE TCDOL (SuR1,SUBZe® Je 
1360\03 COLUMN 653\PIC 4(6)9 SOURCE TCPOL (SUE1,SUBZ0/)e 
1Z7OSPROCEHURR DIVISION, 
13803STARTOO, 
1390\OPEN INPUT INFILE OUTFUT OTFILE PERFILE RFOFILE, 
“TUOO\NINITIATE TOT"REPORT, : ‘ 
44tOsMOVEKRS, 
IN20\HOVE ZERO TO SUNTAB, 
IL3OsREAD='O, 
jMUO\READ INFILE AT END MOVE "Z2" TO HFY GO To HXIT<15, 
1W5O\ADD 4 TO INCNT. 
TUGO\MOVE INREC TO IREC, 
TH OSELT EATS» 
1UBONEXTT, 
1U90STF<20, 
TSOO\IY INCNT © 1 HOVE FY To HFY GO TO CYySe30, 
ISTONIF HEY = “22" GO To wRrtpe8o. 
1S20\LIF FY NOT = HRY GO TO WRITE-8u, 
1530%8cuSs<3U, 
ISWVO\LE CUS 
TSSONLE Cus 
15S60\1F CUS 
ISTO\IF CUS 
“ABWONIF CUS 
1590NIF CUS 
1600\LF CUS “MAP” MOVE 
1610\IF CUS "SYS" MOVE 
1620\MOVE 9 TO SUBi, 
T6308 DRAWN 40, 
16UO\TF PRAY "R® MOVE 1 To SUB2. 
1650\IF DRAW “Dp” MOVE 2 To SUBZ2. 
1660\IF DRAW = "A" MOVE 3 To SUB2, 
'o 4670\IF DRAW NOT = "R" AND "D” AND “A" OTSPLAY “DRAW ERROR*®*** 
16680\DRAW "” TREC = “ FREE ADD 1 TO KOCHT 
' 1690\GO TO READ=10, 
170 PREITAHS( ry 
1710\IF RGC = “A” OR “B" MOVE 1 TO SUB3 GO TO ADD@“60, 
1720\IF RGC = "C" OR “D" MOVE 2 TO SUB3 GO TO ADL<50, 


"AFR ROVE 
WANG" MOVE 
"DA " WOVE 
DAF" MOVE 
"DR * HOVE 
“MAC” MOVE 


TO SUB1 GO DRAWHLO, 
TO SUB1 GO DRAW=LO, 
TO SUB1 GO DRAYRUO, 
TO SUB1 GO To PRAwV=UO, 
TO SUB? GO 4 DRAW "406 
TU SUp1 GO DRaAv=UO, 
TO SUB1 GO ) DRAVHUO, 
TQ SUB1 GO DRAwW=UC, 


te Rweente 


WrNAIBOU LWwr 


1730\IF _ RGC = "E" OR “F" MOVE 3 TO SUB3 GO To ADD=-§60, 
ITHO\IF RGC "G" on “KH” MOVE UW TO SUB3 GO Th ADD@§0, 
1750\IF Roe "7" oR "K" OR "2" MOVE 5 Tq SUR3 Go To ADD=60. 
“T760\MOVE 6 TO SUB3, | iia oo peg) ped g Ee ep 
1770sapn~80, 
1760\IF OC = "C" GO TO cON]70, 
1790\ADD D TO TODOL (SUB1,5UB2,SUB3) TODOL (sU8n1,SU82,7) 
WBOON\TODOL (SUB1,5,SUB3) TODOL (10,SU82,.SUB3) ToODOL (SUB1,4%,7) — 
IBIO\TODOL (10,4,SUK3) TODYL (14,SUB2,7) TOPOL (10,457). 
| aebntey Rona. wi. | Meee 8 ae eee ee ee ee 
| 
| 


1830: CcONH76, 
18GO\ADD D TO Tchoy, (SUB1,SUB2,SUB3) TcnoL (suB1,SUB2,7) 
1ESO\TCDOL (SUB1,4,SUR3) TCDOL (10,SUB2,SUB3) TCDOL (SUB1,4,7) 
TBEO\TCDOL (1004eSU53) TCDOL (1 eSUB2¢7) TCOOL (1Ue4e7)« Saas fae 
1870\GO TO RFAN=10, 
1BSCSWKITE-50, 
I8GO\PERFORN “MOVF@81 THRU YxIT@-85 VARYING Sus1 FROY 1 BY+®@ UNTIL 
1900\SUB1 > 9 AFPTRR SUS2 FREON 1 BY 1 UNTIL S'NB2 > 3e 
IQ10\PRRFORM GEN=-9 THRU ghNe 10) VARYING SUB4 FROM 1 BY 4 UNTIL 
1920\SUB1 > 10 AFTER SUB2 FROM 1 BY 1 UNTIL suUB2 > U, 
IWOS0\TF HRY = "22" 
4OUO\MOVE FY TO HFY 
19OSO\PERFORM “OVEN 
196C\GO TO CUS=30, 
197T02GENW9C. 
1990\TF SUB) 
2000NTF SuUh2 
20108 guyetc0, 
ZOZO\GENERATE OL, 
ZOZO0\GENBRATE CL, 
20U0rFNp-110, 
ZO5O0\MOVE INCHT TO DISCNT, 
2060\DISPLAY "NO. OF REC RFAD = " DISCNT, 
ZO7TO\NHOVE NOCHT TO DISCNT, 
2OBO\DISPLAY “xO, OF StRANGE DHAW CODFS = “ prSent, 
ZO9O\TERNINATE TOT“REPORT, 
2Z100\CLOSE INFILE OTFILE PrrFILF REQFILZ, 
2110\STOP RUN, 
21203MOVEH5 1,8 
2130NTF HRY = “ZZ” MOVE Fy TO PFY RFY GO TO CHECK*52, 
2IGO\MOVE HFY TO Pry RFy, 
2150S CHECK<-82, 
Z216C0\NOVE CUST (SU81) To pcyS RCUS, 
Z170\NOVE DRAB (SUB2) To DRAW RDRAW. 
218070KG-83, 
Z2190\MOVE “O” TO POC ROC, 
2200\CONPUTE CUSTOT = ToboL (sUB1s4,7) * TeDoL (SUs1p4,7). 
2210\COMPUTE DEAXTOT = TODOL (SUB1+SUB2e7) + TCDOL (SUB1¢SUB2e7). 
Z2220\COMPUTE PEFORAW ROUNDED = DRAWTOT / CUSTOT, 
2230\COMPUTE PRROC ROUNDED = TODOL (SU8B1,SUB7,7) / DRAWTOT, 
Z2UO\COMPUTE PACFT ROUNDED = TODOL (SUB1,SUB201) / 
JI5CNTOHOL (SUT, SU2,7), °° ea anes 
Z260\COMPUTE PRISS ROUNDED TONOL (SUB1,SURZ,2) / 
Z2270\TODOL (SuB1,SsuU52z,7), 
2280\COMPUYE PENG ROUNLED & TODOL (SUB1,SUB2,3) / 
DOGONTODOL (SUP1,SUn2, 7), 
Z300NCOMPUTE POMFEI ROUNDED = TQDOL (SUB1,SUBY,4) / 
Z3TO\TODOL (SUBT,Ssube,7), 72 
ZZZ20\CONPUTE PEXCH ROUMDED TODOL (SUB1,SURZ05) / 
4 2330\TODOL (SU51,S5UK2,7), % 


1 GO TO SEN@=400, 
1 ApD 4 TO Loc, 


ri, 


{ 
| | ee Se a se = == ae = 
2340\COMPUTE PABY ROUNDED = TODOL (SUB1,SU52,6) /- BRAS SSS 
2350\TODOL (SUB1,S5U52+7), 
2360\WRITE OTREC FROM Pro, 
‘aan bos tt TO Clee. i. a. Le TS. ae 
{ 2380\MOVE YODOL (SUB 1,SUE2,1) TO RACET, 
2390\MOVE TODOL (SUB1¢5u82,2) TO RMISS, : 
2UOO\NOVE TODOL (SUB1,SUK2,3) TO PENG, 
2410N\MOVE TODOL (SU51,SUE2,4) TO ROMEI, 
2420\MOVE TODOL (sus 1,SuR2,5) TO REXCH, 
Z4U3O\MOVE TODOL (SU51,5U52,6) TO RABM, petite he = fateg ke oy 
24UONWRITES REQREC FROM RQREC, 
2450 3coneBe, 
2U60\MOVE "C™ To POC ROC, 
| 2U70\COMFUTE PEROC ROUNDED = Teno, (S8U81,5U82,7) / DRA*TOT, 
24U80\COMpUTE PACKET ROUNDED = TCDOL (S$UB1,SU82,1) / ; 
| “2u9C\TCDOL (SUB1+SUBQZe/)e ‘. : 
j Z250C\COMPUTE PmMrSS Foxpro = TCDoL (SUB1,S5U39,2) / 
| 2510\TCDOL (SUB1,SUH2,/), 
|} 2520\COMPUTE PENG ROUNDED & TCDOL (SUB1¢SUB2,3) / 
| 2530\TCDOL (SUB1,SUBZ+/). 
Z54L0\COMPUTE Po E ROURDED = TCDOL (SUB1,SU532,4) / 
| 2550\TCDOL (SUB1,SUB2»/), - - 
| Q560\CONPUTE PEXCH ROUNDED = TCDOL (SUB1,SUR7,5) / 
H 25 /OCNTCDE (SUB1,SUB25/), 
| ek \COME OPE PABM ROUNDED = ToDo, (SUB1,SUB2,6) / 
| BOONTCDOL (SUB1,S5SUn2s/), 
| au coNaei OTREC FHOM PREC, 
| Q610\ADD 1 TO OTCHRT ; a ei 
' Q262C0\HOVE TCDOL ( ,SUR2Z¢ 4) TO RACKT. 
| 2630\MNOVE TCDOL ( «SU32,2) TO RNISS, 
2640\MNOVE UCDGL (S e5UB2,3) TO RENG, 
2650\MOVE TCDOOL (SUB1,S5u82,4) YO ROMNEI, 
| Q2660\MOVE TCDOL (SUS1+S8U5205) TO PEXCHy 
| 2670\MOVE YCDOy, (SUn1,5U52,6) IO RaBii, he yy 
| 268O\WRITE KEQPEC FROM RQOREC, 
26908 EXIT“65- 
| Z7GONEXIT, 
| 27108 2ENDJOB 
i, i 
i 
A.4=6 


PROACPAM 
LISTmic 
SAATT 
sATT 
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CATALOG/FILE DESCRIPTION= RCS/MODALL.R 


727351 


ee pe 
O20SSIDENT: 4¥P0955,L0ORFR(81) Cgw 
030$3 TIMETST 15>. 5K i 
OUOSSOFTIONSNONAP 
OSCSSGMAP: \DECK 
U6C260USM 
O7OLSORT:PChe,n))OS~”# 


MODALL,R> 


Og0SFIELD: (C5) 
090:S8Q3(A1) y aan ; —. oo © 
1OO3:FILCBRSFCR,**,2 
VICSEND : Le ee oe big 

|} IWOStEXSCUTE 

| “T3005: “PIMNITS!? Opeeek Wa adh, Fe aie eu 

| TUOSEPRUFLISA,E,Sp,ROS/HEQPHR . 
ISUSEPILESS thS TR 2e8 
160SSFILES: 2eS2t o2 4 * _ 

| TVIOSTPILESS3,S3R 52-2 

i TROSSPIULESSZ A 1S, 2-1 a! dee ee ee eS 
190SSOPTLION SNOMAP ; ait ‘i 


2602END 


PS 'Seanex 
290 2PRIt "LiSheRe Se RCS/REQDOL 
SOOSTPILE SS 1 eSTRe20R a4 
STOSt FILE tS2,S2Rp2 Sad uence eee Sa a 
3S2USSFILE?S3,S3Rp2-R 


SSUS TEETER ES ZpAzS pee L 
SUOSSOPTIOGY SNOMAP 
350SSGMAPSNDECK 
3603 600S5i4 
STUTSORTSFCBa, 1 
SGU FIELDS (C2) 
3903SEQ3 (k7) 
WOUSFILCHIFCB,**, 2 

GIUSEND 

Y2USSEXECUTA 
HSICSSLIMITS3 Se 062K 
WUOSEPRNFLSSA,R,S, RCS/PEFILG 
Y5O0SSFILESSigSihy 1k 
YVHUSTPILASS2,S2F, 1K 
YQTJUSSFILESS7%,A3S, 11 
YUROSSOPTIONSNOMAP 
UIOSEGHAPSNDECK 
50026008); 
SIUSSORTIFCR,,9 
520: FIELDS (C4 pp ClpE 1 C2 te C2ceR ats» Ot» C4,C41, St2eG 1) 
S3Z0SSEOS(AZ+A12¢414 oh8eA3y,AS) 
SUOSPILCHSFCE,**, 2 

SS5USEND 


SOUSSEXECUTE Pie SL 


« DTOSSLINITSS 15907 2K 


} *FCB»,9 

| 2307 FED! (C5) 

j} 2hoO;SEQ?: (At) Se oe ee See ae ee TE, Sool eae 
| 2Z50SPTLCB ITCH, ** 42 

' 


SBOSETAPESSA,X1DD_, 974795 ,NODRAN 
SSUStrTEEtslsS Rea R  8=6©)|)6hCCOCS~s=‘—s—C—Ssts™S™S 
OOUSSFILHSS2,S2R,3-P 
“OT0SSPILE:§3,53R,3_ R 
OQUSSFILESS2,A4S,3 1 
O30SSUTILIVY 
BUOSSFUTLLIAA, pREW/AAp/pDDUMP/OURe Sp RENSRAG/S 
OSUSSFILESAA,AS3~3 1 \ i ors 
b6USLOPTIO’ $COBOL,NOMAP 


| 
| 
| 
| 


“OTUSTSELECTERCS/HCDALLO 
OBUSSEXECUYVE 
O9OSSLINITS: 15, 1EKye 2K 
TOOSSPILESAA,AIRe 2.2 
“TIOSTFILESAB,AGR,3 L 
FAUSSFILE SAC ASR a 1h 
FSUSTPRNFLIADs ReSe he 
TUUSSFILESAL,AZR, 2 L 
TSOSSFILESAF, ADR, 2.1 
T6OSSTAPESAG, X20L—¢—746762,,NODRAN/RING 
TT°OSSENDJOS 


S/MODPCT 


| 

! 

| a8 

| 

Re Ra a 9 eR Ae CS Mo 9-2) OR nee Mee RR ae 
| 

| ae ’ 

1 

| _—— et ee ee ha na ne ee —— _—- — — rn a ee nn a on 
| 

| - — 

| ES oes SP oho 

| 


CATALOG/FILFE DESCRIPTIONS RCS/MODALL.S 


WOLOeFMERURC) SaeetGeNntesuo..©|6U€U6D!™UC~CO 
VOZOSSIDENTIWPIIDS5,LORER(B1) CUW 72754 MODALL,S 
OOSO0SsLINITS: 1569 eSK , et he ae oa 
VOGVOSSOPTIONSNONAP 
“0050SSCOBOL! DECK 
OOGOSIPRNFLIC*,WeS,RCS/MODALL,O 
“0070: TDENTIFICKTION DIVISION: 
OOBOSPROGRANNID, MoOMPALL, 

OOOO SENVIRORMENT DIVISION, 
O100sCONFIGURATION SECTION, 
O11TO8SPECIAL=NAMES, © = s 
O12Z0NCOMPTLE ERRORS, 

OTSOSTPILE CONTROL. 


O1GO\SELECT PFRFILE ASSIGN TO AA, 

O150\SELECT MODFLLE ASSIGN TO AB, ~ = ; 
O160\SELECT PRIFJLE ASSIGN TO Ac, 

O1T70NSELECT DOLFILE ASSIGN TO AD, = a ee aa 


O18G\SELECY REQFILE ASSIGN TO AE, 
“OTONSELECT TEMPILE ASSIGN TO AF, 
O2O00NSERECT ALLFILE ASSIGN TO AG, 
02108 T=9=$CONTROL, 
O220\APPLY STANDARD ON PERFILE MODFILE PRIFILE TEMFILE 
O230\ALLEILE DOLPIER REOPIUR s 
O2ZKO0SDANA a ON 
“O2ZSOSFILE SELECT tTONT 
O260SFD PERFILE 
O27O\LABEL RECORD STANDARD, 
280307 PERREC\PIC x(ue), 
O2903FD NOpFILE 
OZ00\LABEL RECORD STANDARD, 
‘OS TO80T HODREC\PEC K(SG), °° © 
O3208FD PRIFILE 
O330\LAEEL RECORD STANDARD, 
0340301 PREREC\PIC x(6), 
O3503FD TENFILE 
Q300\LABEL RECORD STANDARD, 
O370301 TERREC\EIC F(ESy, 
O380SFD ALLFILE 
O3Z3YO\LAREL RECORD STANDARD, 
0400801 ALLREC\PIC x (66), 
O410SFD pOLFrIly 
OUZO\LABELL RECORD STA! 
| Ou30301 pozReC\PIE X¢ 
OULOSFP KRECFILE 
OUSO\LARBEL RECORD STANDARD, 
' 0460801 REQREC\PIC X(54). 
OUTOSWORKING=STORAGE SECTION, 
0480877 PERCNT\PIC 9(7) VALUE 0 COMP -1 
OUIOETT HODCNTVPIC F(T) VALUF O CONP=T. 
0500877 TEMNCNT\PIC 9(7) VALUE 0 CONP}1, 
0510877 ALLCNT\PIC 9(7) VALUE OC ConPe1 
0520377 REGCNT\PIC 9(7) VALUE 0 COMP=1, 
0530377 DPISCKT\PLCO 2(6)9, 
7 0540877 RFLAG\PIC 9 VALUE 9, 
OS5OT7IT SuBI\PIC 99 VALUE 6 COMP= 1 
0560377 SUB2\PIC 99 VALUE 0 COliPH4, 
1s 0570377 SuB3NPIC 99 VALUE O ConD=1, =a me TE = = 


re AA et A 


(DARD, 


{7 
” ee pas ness ahs sna inspira aceenilinacnaniin tins iietineabst omnes sesinins 
eZ 


pre ; 

O870377 REO90 PIc 9(6) CoNp=1 VALUE 0, 
O8ROLT7 ROSS PTC 9(8) CoMpe1 VALUE oO, 
O89C377 KE OBU PIC 948) CoMpe1 VALUE O, 
0900377 RHO7S PIC 9(8) CoMpe1 VALUE 9, 
0910377 MaEQTOO PIC 9O(e8) Conpe7 VALUE 0, ae me Ps ee 
0920377 MKEQ9® pre 9(8) CoMp=1 VALUE 0, 
O930¢77 MPEQSS pre 9(6) Compe! VALUE 0, 
0940377 MEEY8% PIC 9(8) CoMp-1 VALUE o, 
0950:77 MREQ75 pic 9(8) GoMNp=1 VALUE 0, 
U96057/ TREQ PIE 9(6) CoMp=1 VALUE O, 
0970377 MTREQ r¢ 9(8) Coip=1 VALUE Oo, 
0980377 X94 Pre 999V9409 COMP VALUE O, 
0990377 x1 PIC 999V9999 COMP VALUE 0, 
WOOO T? KZ PIC 999V9999 COHP VALUE O, 
TOHOS7 7? XS PIS 9459V9999 COHP VALUE QO, 
1020377 Xu PIC 999V¥9999 COMP VALUE O, 
1030377 yxcCep PIC 24929999, % 
1040377 XiaD PLE 249,9999, 
105037/ XZebd PIC 249,9999, 
1060!7/ x3=D PIC 229,9999, 
1070377 xbed PIC 249,9999, 
10680877 REXI0C=pH Plc 2(7)9, 
1090877 Rrod0RD PLC 217)9. ee apes 7 
1100377 RrokSe@D PIC Zt7ySs 

lo 1110877 REQBOHD Plc 2(7)9e 

1s 4120377) RFO75=D PIC 2(7)9. 
TAZO3S7T7 AREQIIOND PIC 2(7)9¢ 
1140877 MREQO0=b ple 2(7)95, 
4150377 BREQBS@P PIC 7(7)S. 7 
1160¢77 MRAQBO=b PIC 71755, 
1170377 pic 


\ 


0580377 EFLAG\PIC 9 VALUE 0, 


0590377 HeUS\PIC XXX. 
(0600377 Hw5s23\plc xX, 
0610877 KDRAWN\PIC x, 
0620377 HOC\PIC X. 


0630377 HRGC\PIC xX, Se a ae Se Ail ea Re aap Sia 


0640377 LFLAG\PIC 9 VALUE 9) 

065077 PERCENT\PIC 8VY¥999 COMP. 
06603877 CUS=4 PIC XXX Value " " 
“067087/ FUDGE\PIC 399V9999 comp. ; 
0660377 Fup\Pre 999v9e9s, 

0690377 FLAG\PIC 9 VALUE 0, 
0700377 DRDRAW\PIC 9(7) Conp=14, 
0710377 GDOC\PIC 9(7) CoMp=1. iad 
0720377 S-i\PIC 225, 
(0730377 S#2\PIC 429. 
O74U0877 Se32\PIC 229. 
0750377 COUNTER\FIC 9(3) VALUE » ComMPp~1, 
0760377 PPTR\PIC 9(6) Valus 0 COMPe1, 
0770277 PPTRX\PIC 9(6) vile + COMP=1, 


O780377 PETRD\PIC 9(6), 

0790:77 HcuSS\Pic a. Ty a oe. pene Dae ane a i 
O800877 TEMTOT PIG 9(7) CoMp=1 VALUE 0, 

Oal0s77 FubTOT Pre 9(7) Colip=1 VALUE 0, 

0820377 TYM=-VAL PIC 9(7) CuomPe1 VALUE ©, 

0830377 FUDSUM PIC 9(6) VALUE ". 


(OB4Or77 ALI 
0850877 
0860377 


oC PIC 9(8) ComFel VALUE O, 
RLLOCRD™ prc 4(7)9, 


REQ109 CoMp-1 VALUE 0 


MREQ75S<b 


Z(7)9e 


(180777 SbRoen Pre zivig, 

| 4190377 MTREQ"D PIC 2(7)9 
1200301 PREC, 
qios O23 BEY PIC Xx. 
12203 O3 pCcus pre xxx, 
“72303 03 PDRAW PpIo x, 
12U0\03 PREDRAW\PIC 9V9(4), 
T250\03 poc\PICc X, ae 

| 1260\03 PEFOC\PIC Jv9(u), 
4270\OS FACFT\PIC OVS(U), 

| 1260\03 PMISS\PIC $V9(4), 

| 

| 

| 

{ 

j 

t 

| 

| 

| 

| 


“F290N03 PENG\eIC IVIO(4), 

1300\03 PONEI\PIC $’9(4%), 

“4370\03 PFYCH\PIC SvS(4), 

1320\03 paRn\PIC $¥9(4), 

“TISONCG PRULERN\PEO® Xe 

1340301 PRTAB, 

1350\03 PReNTRY OCCURS 60 TIHES. 

1360\ O05 pRWw23\PIC XX, 

TION 105 SRLOSNPLOG Fos 

1360:01 Nkse, 

“Tago shoots) 
| HOC\O3 FILLER\PIC x(4), 
| TeTONOS FPYNPIC XxX, 
| 4420\03 RGC\PIC X. 
| “qu30\03 FILLER\PAC X(2°), as 
| 14U0\03 WBS. 
| 
| 
| 


IG need re Rieger 
1U60\ O05 wWBS23\PIC XX. 
THON WS FUULERNPLO Xk. 
TWEC\OS CUS\PIC XXX. 
1UIO\O3 OC\PIC Xe 

1500\03 FILLER\PIC X%(4), 

TSAGONGS DRAWNPLG X, 

1520\03 D\pIc 9(7), 

1530\03 FILLER\PIC ¥(5), 

| 15603 02 cUSS\PIC 9, 

| 1550801 PREC, 

|; .1560\03 PRYBS23\PIC XXo_ 

| IS70\03 FILLER\PIC Xe 

| 4580\03 PRIN\PIC 99, 

| 4590\03 FILLER\PIC X, 

| 1600801 TREC. 

1610! 02 T1. 

16Z0\03 FILLER\PIC x(4), 
“F630N\03 TFY\PIC XX, 
1640\03 TRGC\PIC Xe 

T650\03 FILLER\PIC x(2° jy, 
1660\03 TWES. 

1670\ O5 FILLER\PIC Xe 
1680\ OS TVBS23\PLC XX, 

wz TER0N OS FELLERNP CC Xx, 

1 17OONOS TEUS\EIC %XX. 

10 1710\03 TOC\PIc X, : 
4720\03 FILLER\PIC x¥(4), 
1730\03 TDRAW\PIC xX, 
47U0\03 TD\PIC 9(7). 
TWHONOS FILLERVPIC x(5), 
17603 O02 TP\PIC 99. Abas 

1 1770$ 02 TDALL\PIC 9(/). ae a 


37808 
“17903 
1800301 
“TBIO\03. 
1820\03 
aa 
1840\03 
1850\03 
1860\03 
“1870\03 
1880\03 
1890\03 
1900\03 
1910\03 
1920301 
19303 
IDLO\O3 
1950\ 
1960\ 
1970\ 
een 
8f0\ 
Pt 
201C\ 
2020:01 
20302 
(2040\03_ 
2050\03 
2060\03 
ZO7TONO3 
2080\03 
2096 
2100\__ 
2110 
2120\03 
2130\93 
| 2140\03 
| 2150\03 
i 2160\03 
| 2170\03 
| 27008 
21903 
22003 
22i03 
} 2220301 
; 22308 


| 
: 


2250\ 
2260\ 
2270\ 

2280\ 


2300N 
2310\ 
2320301 
23303 


2350\ 
2360 
|< 2370\ 


O02 FILLER\PIC XXX_ 
02 TcUSS\Prc ¥, 


| 2240\03 PDRAW OCCUXS 


2290y 


Z2340\03 D2 OCCURS 3, 
“05 


ROREC, 
RFY\PIC XX. 
RCUS\PIC XXX- 
RDRAW\PIC x, 
ROGNE TC =x, 

RACET\PIC 9 
KMISS\PIC ) 
RENGNPIC 9(7 
ROMEINPIC 9¢ 
iy ae 3 
RAHM\PIC 


REQTABse  _ Ro eee 
02 ROCHS OCCURS 9, 
RODRAW OCCURS 3, 
05 pooc occyRS <4, 
OF ROANPIC S(7h 
OF BOMNE TCS Cols 
OF RORMNEIC 2(7 15 
OF ROOUNP EC! 270i 
OF ROEX\Pic 9(7), 
O7 RQAB\PIC 9(7), 
RREC. = 
GOe Rls 

PILLER\PIC X(4), 
AFYNPIC XX, 
NREENPIC XxX. 
FILLER\PIC 
AW 
05 


i 2U ) ig 


ELEDRNPIC 
05 AWBS23\PiCc 
05 FILLER\PIC 
ACUS\PIC XXX. 
AOCNPIG X, 
FILLER\PIC x(4), 
ADRAW\PIC X. 
AD\PIC 97). a 
FILLER\PIC X(5), 
OZ AP\PIC 99. 
AURDENEEC. SCP), 
O2 PILLERNPIC XXX, 
O2 ACUSS\PIC X. 
DTAB. 
O02 pcus OCCURS 9, 
3. 
05 DOC OLCURS 26 
DANPIC 9(7)}, 
DU\PIC ou 
Sani: 
HVPIC 
07 Res Mbse 
O7 DAB\PIC 
DIFTAS. 
62 Di OCCURS 


n 
“ 


O7 
07 
Or 
OF 


‘ye 
de 
de 
9 de 


Do. OCCURS 2, 
O7 DIFDA\PTC S9(7), 
O07 DIFDNA\PIC 59(7), 


Ae 5-6 


2380\  —-07_~DIFDEN\PIC S9(7). 
2390\ 07 DIFDOM\PIC S9(7)e_ 
2400\ O7 DIFDEX\PIC S9(7),. __ 
“24 10\ O7 DIFDAB\PIC S9(7), 
2420201 CUSTARB, 

“2U30\03 FILULER\PIC Lot a las Sere ae a a 
2UGO\"AFRANGDA DAFDN MACMAPSYSOTH" 
2450201 CTAB REDEFINES CUSTAB, 
2460\03 CUST\PIC XXX OCCURS 9, 
“ZU7030T CDOLTAL, SS ae a eS a aie ae ETE AE Ta AR 
2480\03 CUSTDOL\PIC 9(/$ OCCURS 9, 
24203801 DREC. ke ie is 
2500\03 DFY\PIC XX, 


“2510\03 pBUD\PIC 9(7). ate earn — it a he ee ee er ee oe 
2520\03 UAFR\PIC D7) eo 
IOSONCALUENGNELO ACrhe 9) aces Se Sh 
2540\03 DDANPIE 907) 

2550\03 DDAF\PIC 9(7). 3 : ——— es 
2560\03 Dp: INPrG 97). 

Z2570\03 DMACN\PIC 9(7). . ‘ = Pe ae ea = 
258Q0\03 DMAP\PIC 9(7)- 

ESS A Aa Mu ee oh 2 (gS 1 ap) SC ge SIS It ia a i aaa ‘ 
Z600\03 DOTH\PIC $9(7). 


2610S PROCEDURE "DIVISION, 
26208START=0, — 
Z630NOPEN INPUT PERFILE HODFILE DOLFILE REQFILE. 
ZOHO\ORFEN OUTPUT THNPILE ALLPILEs 
ZE50PMOVESS< : a a 
2660\NOVE ZERO TO OTAB pDIFTAB, 
267C\NOVE ZERO TO REQTAB, 
2680:oPpEr<6. 
2690\OPEK INPUT FRIFILE, 
27003READ@7, 
Z7TO\READ PRIPILE AT END $0 TO CLOSE=8, 
2720\MNOVE PRIRFC 210 PREECe 
2730\ADD 1 TO PPTR, 
Z274O\MOVE PRWBS23 TO PRhw23 (PpTR). 
Z750\4OVE PRI TO PRI2Z3 (PPYR), 
Z760\GO TO READ“7, 
STN CNC rtae) co Oe ot ee ead RES NCR TP RT Gan G cde Meee Pt Sg a oe 
ZTEO\CLOSE PRIFILEe 
279O\MOVE PPTR TO PPTRD, 
ZB00\DISPLAY " BOF ON PRIPILE = “ PPTRD, 
ZB 1IOSREAD@<i0, 
Z2620\READ DOLFILE AT END GO TO READ@-2U, 
“Q2830\MOVE DOLREC TO DRECe aA 
ZB4UON\MOVE DAFR TO CUSTDOL (1), 
2B50\MOVE DANG TO CUSTLOL (2), a. 
2BGO\MOVE PDA TO CUSTDOL (3), 
2ZB70\MOVE DDAF TO CUSTDOL (4), 
ZB60\MOVE DDN TO CUSTDOL LED 
> 2690\MOVE DAC TO CUSTDOL (6), ~ 
1 ZO00\MOVE DMAP TO CUSTLOL (7), 
10 297O0\MOVE DSYS TG CUSTDOL (8B), 
2920\MOVE NOTH TO CUSTDOL (9), 
ZOZOIREADHR20. : acai 
, 2Q4UNREAD PERPILE AT EviD GO TO READBU, 
ZO50NADD T To PERCHT. ; : 
, 2960\MOVE PERREC TO PREC, 


| 

2980\IF DFY NOT = PFY AND FFLAG = 1 MOVE O To BFLAS 

2990\GO TO READ@=80, aia celia i 

3O00\EF DFY NOT = PFY GO TO READ=2v, 

“JOTO\IF EFLKG = 1 GO TO CHeCKed-, 

| 3020\MNOVE 1 TO EFLAGe 

30303;SUB1=35, — on koe rea ae ees «a : ne a. ep att 


30K0\N0VE 7 TO SUBI, 
3050:cHRCK-40 
3060\TF pCirs 


Cust (SUp1) GO To PRRAW-50, 
“3O7O\LF PCUS “OTH” MOVE 9 To SUST GO To CHecK-40, 
SOBO\TF Pcrs "SYS" MOVE 6 To SUB1 GO TO CHFCK=40, 
Z3O090\ADD 1 TO SUB. 
3100\NOVE SUB1 TO S11, 
3110\IF SU5S1 > 9 DISPLAY “BAD CUS IN PERFILE ™ pCus. 
(| 3120\" PREC = “ PREC Sei GO TO END=640, 
| 3430\GO TO CHECK=4 ; ‘ 
| 31402 PPRAWH5U, 
| 3ISO\IF PDRAW "Dp" HOVE 1 TO SUB2 GO TO POcR6¢o, 
| 3160\IF PDRAW "RY HOVE 2 TO SUB2 GO TO POC-60, 
3170\MoVe 3 Tn SUB2, 
! 
' 


-3180fPOC6C, = 
3190\TF Poc = “o” HOVE 1 TO SUBS ELSE 
| 3200\mM0VE 2 TO SUBS, 
| 3210%PCALC~70, 
| 3220\MULTIPLY PERDRAW BY CUSTDOL (SUB1) GIVI‘G 
| 3230\DRDRAY ROUNDED. 
| 32HO\MULTIPLY PEROC BY DRDRAW GIVING ODOC ROMNNDEDs 
} S250\NULTIPLY PACFT BY ovOC GIVING DA (5UB1,sUB2,SU83) 
i S260\ROURDED, 
3270\MULTIVLY PMISS BY ODOC GIVING DM (SUB1,SUB2,S5UB3) 
3280\ ROUNDED. 
S29O\NULTIPLY PENG BY ODOC GiyING DEN (SYUB1,SUB2,SUB3) 
3300\ROUNDED, Os 
3310\MULTIPLY POMKEX BY ODOC GIVING DOM (SUB1,SUB2,$U83) 
3320\ROUNDHD. 
3330\MULTIPLY PFEXCH BY ODOC GIVING DEX (SUB1,S5U%2.50B3) 
33UC\ROUNDED, 
3350\MULTIPLY PAEM BY Opoc GIVING PAB (SUB1,SUB2,SUR3) 
3360\ROUNDED. 
| 3370\GO TO READ=20. 
| 3380SREAD@a0, 
| 3390NREAD KEQFILE At END GO To READ@100, 
|} S3HOO\RDD 1 To REQCNT. 
3W10\MOVE RFQREC TO ROKEC, 
34U20\IEF DRY NOT = RFY GO TO READ#=8LU, 
| 34303 pER-90, < 
| 3440\NOVE ROUS TO CUS MOVE RDRAW TO DRAW, 
| 3USO\MOVE ROC TO OC. 
| 3460\PERFORM CUS=<$130 THRU Oce4d5e, 
| 3U70\MOVE RACFT TO RQA (SUK1,S5SUB2,SUB3), 
34BO\MOVE SUB1 TO S-1 NOVE SUBZ TO S-2 MOVE SUBR3 TD Se3. 
JEIONDLOCOALY “UDASRON “Sep © Scag te gay ee 
3500\ DA (SUB1,SUBZ,SUB3) " " ROA (SUB1,SU%7,5U33), 
3510\MOVE KMISS TO RUM (SUB1>SURZ»SUB3), 
3520\MNOVE SUB1 TO Se1 MoVe SUg2 TO S=2 MOVE cttg3 TO S=3, 
3530\DISPLAY " DN/RKOM Ts Re a I 
3540\ DN (SUB1,SUB2,SUb3) " " ROM (SUB1,SUK2,SUB3), 
3550\MOVE KENG TO FOFEN (SUB4*#SUB2eSUB3), 
3560\MOVE SUB1 To S=1 KovR SUB2Z TO Se2 NOVE <Uu3 Ty Sa, 
S57O\DISPLAY "“DEN/KOEN " Se1 ‘i RE ASS Ts 


= ae | 


3560\ DEN (SUB1, SUB2, st¥se3) ™ " ROEN (SUB1,SUB2,SUB3), 
3590\MOVE RONEI To RQON (SUB1,5UR2,SU53), Ww eed ia 
3600\MOVE SUB1 TO S=%4 Nove SUBe TO S-2 MOVE sUB3 TO S=32 
“BO TONDLEPLEY "On sa0oN Fo Se) © * g=2 3 © geg = 
3620\ DOM (SUB1,SUB2,SUB3) *™ “ RQOM (SU81,5UR2,SUB3), 
“3630\MOVEH REXCH To BORK (sUB1,SUB2,S5U83), het eae 
S640\MOVE SUB1 TO S=1 HOVE SUB2 TO S=2 MOVE sUR3 TD S=3, 
SGSONDISHLAY “DEX/ROEX 8 Set * " Se2 % 8 geg  ™ 
3660\ DEX (SUB1,SU8 2.5083) * " ROEX (SUBi,S5UB2,SUB3), 
3670\MOVE 2A3M TO ROAB (SUB1,SUB2,SUb3), 

3680\MOVE SUB 4 TO S71 MOVE SUB2 TO S-2 MOVE SUB3 TO S=3. 
S6IJO\DISPUAY “DABZROAB “S=1°* “ Ge2 ® * gag, 8 F 
3700\ DAB (SUR1,SU52,SUb3) ™ " RQAB (SUB1,S5UBR2,SUB3), 

| S7TTONGO TO READ“50, ; ety ae 3 ee ee 
1} S7TZOCREADH100, +e 
| “S73O\READ VODFILY AT END GO To CHECK=530, 
| 3740\ADD 1 TO MNODCNT. , 
3750\MOVE !ODREC TO MPECe 
| 


37603 If CUS NOT = CuS-H MOVE MODCNT TO prscNT 
37763, PESULAS © “CUSMOnG: <CUS=Ha fice Mr spa scNe 
37802 MOVE CUS To CUS", 
aS eet mcg nme a) ake BOD ; 
SSOON\TF FY NOT = DFY AND EFEAG 1 GO TO FND-4uo, 
3810\IF FY NOT DFY GO TO READ~80, 
3B20\MOVE 1 T9 EFLAG, 
3830NEF MopCcNT 1 MOVE CUS To HCUS MOVE Cllss TO HCUSS 
| 384O\NOVER 3523 TO HW8523 NoVE DRAW TO HDRAW 
| 3B5C\MOVE QC TO HO® MOVE RGC TO HRGC, j 
3B60SCHECK=129, 


i 


3670\IF CUSS NOT = HCUSS AND LFLAG = 1 GO TO REW=320, so 

|; 38B8O\IF DRAW NOT = HDRAW AND LFLAG = 1 GO TO RRY=320e 
3890\IF OC NOT = HOC A¥p LFLAG = 1 GO TO REW-320, 
3900\IF CUSS NOT = KHCUSS OR DRAW NOT = HDRAW OR OC NOT = HOC 
“391082¢MOVE CUSS TQ HCUSS MOVE DRAW TO HDRAN MOVE OC TO HOC, 
3920\IF (ROC KOT = “A“ AND "B") AND RFLAG = 1 GO TD REW=320, 
SO3S0NEF (RGC NOT = “CC® AND "O™) AND RELAG = 3 Go Ta REW=s20- 
SOUO\TF (FGC not = a AND “"F") AND RFLAG = 3 GO TO REW=320. 


G AND “H") AND RFLAG 
mo" AND "K* AND “L") AN 


S9SON\IF (RGEC NOT 
S960\IF (PGC NOT 
3970\GO To REWw=32 
S9B8C\ITF (RPGC NOT “tH RVD “SNOW OAND "PR" RRND “RS AND SS) AND 
S399O\RFLAG = 6 GO TO KEW™320, 
4O00sCUS@130, 
HOT0\IF FLAG = 1 Go TO END<440, 
WOZO\IF CUS = “AFR” MOVE 1 TO SUB1 GO TO DRAt=180, 
WOSO\IF ClS = “ANG” HOVE 2 TU SUB1 GO To DRAV@440, | 
WOYO\ITF CUS = "DA “ NOVE 3 TO SUB1 GO TO DRAv=140, 
WOSO\IF CUS = “DAF” MOVE 4 TO SUB1 GO TO DRAw=44Ul, 
WO6O\IF CUS = "DN " WOVE 5 TO SUB1 GO To DRAw=440, 
WO7O\TF CUS = “MAC” MoVeE 6 TO SUB1 GO TO DRAY<440, 
WOBO\IF CUS = "MAP" NOVE TO SUB1 G@ TO DRAwH=140, 
GO9O\TF CUS = “SYS” MOVE 8 TO SUB1 GO TO DRAV=140, 

11 GIOO\MOVE 9 TO SUR4. 

10 BU110SDRAW=R140, 
B1Z0NITF DRAW = "D" NOVE 1 To SUB2 GO TO of=150, 
GIZ0\LF ORAW = "R" MOVE 2 To SUB2 GO To oC=150, 

, WIGO\MOVE 3 TO SUB2, 
W150foCHi5(, © 
WI60\IF OC = “OO” MOVE 1 TO SUBS FLSE MOVH 2 TO SUB3. 

|: 41I7OSCOMPAKE™ 160, 


iGO PO REW=320. 
RFLAG 5 5 


WH 


eae | a | 


So 
el 


tl 


| 


| 
| 
| 


U18O\TF RGC 
G1I9O0\IF RGEC 
W200\TF FGC 
C210\IF RGC 
&220\IF RGEC = 
U23C\IF DAS 
&42U0\GO TO 
&B2505ACET= 
G260\TF DA (SUB1,SuUR 
U270\GO TO LESS=23 
UZ2B03MISS=160, 
W29Q0\IF DM (SUB1,SUB 
4300\GO TO LESS=23° 
UZ 108 ENG=190U, 
U3Z20\TF DEN (SUR1,8U 
4330\GO TO LESS=23 
H34U08ONHT$205, 
W350\EF DOH (SUB1,S8" 
4360\GO TO LESS#23 
U3Z7TO08EXCK=210, 
43G0NIF DEX (SUB1,SU 
4U39C\GO TO L#SS=23 .. 
QUOC SSURP #220) 
WUIO\MOVE 31 
WY20\MOVA C¢ 
WU30\NOVE D 


sei At 
Sigs oe 
py 
ane oR 
a) ai OR 
(SUB7eSU 
LESS=23 
170, 


OR 
OR 
OR 


B2esuUB3) ¢ 


"Re 
"De 


KY w 


$0 To ACFT=<$170, 
$0 To MIss-180, 
$0 To ENG™190, 
“H*" 40 To OMEI~200, 
eK" On “~" GO TO BXCH=210,, 
B2esuB3) < RQAB (SUB4¢SU%2sSU83) 
ELSp gO TO SURF-220, 


2,Su83) < ROA (SUB1,SUB2,SUB3) 
ELSE SQ To SURP=220. 


2,5UK3) < RON (SUB1,SUB2,SUB3} 
ELSE GO To SURP-220, 


B2,5UB3) < 
ELSE GO To 


ROEN (SUB4,SUR2,SUB3) _ 
SURPW22U, 


RQYON (SUB4,SU%2,SUB3) 


B2eSUB3) 
3 SURP-220, 


: < 
ELSE CO To 


RQEX (SUB4,S8U%2, SUB3) 


GUYO\PERFORMN OPPN-Z40 THRU BXIT-280, 


WUSO\WRITE ALLREC FROM AKEC, 
HYBONADD 1 TO ALLCHT. 
bUT7O\GO TO READ@-10 ,. 
VUBOSLESS=230, 

LUGO\NOVE | TO LFLAG. 


HEQOOSOPENSZ40, 
H510NTP WBS23 = 
W52Z20\GO TO EXIT=28 ., 
4U530\MOVE 1 TO 
HSUOSCHK=250, 
K5S50NIF WRS23 5 
Y560\G0 TO 
US7O\ADD 1 TO PPTRK, 
WSEO\LF PPTRX > PPTR 
4590\GO TO CHK=250, 
H60CIMOVE~Z60, 
W6E10\HOVE 60 TO At 
W62ZOEHXTTH280, 


FXIT=-28:° , 


PRW23 


PRY23 (PPTRX) MOVE PRI23 (PPTRX) TD AP TP 


PPTHX, 


(PPTRX) MOVF PRI23 (PPTRX) TO AP TP 


GO TO MOVE=26%, 


ae 
rk, 


VE S0\EXTT. 
HO6U0SIF“29C. 
U65O0N\rF TP KOT <4 AND TP NOT’ > 14 HOVE 4,0 1O PERSENT 
4W660\GO TO MOVE"30 . 
W6O7O\IF TP KOT ¢€ 15 AND TP NOT > 25 MOVE 0.9 TO PERCENT 
UHRO\GO TO MOVE=30 , 
GV6YONIF TR SOT < 26 ARD Tp noT > 33° MOVF 0.85 TO PERCENT a 
&700\GO TO NOVE=30 , 
G71ONIF TP NOT <€ 34 AND TP KOT > 46 MOVE 0.8 TO PERCERT 
&W720\GO TO NOVE=30°, 
U730NMOVE U,75 TO PERCENT, 
U7UOTMOVE 300, 
U7S5SON\MOVE #1 TO TI, 

A.5=-10 


W7O0\MOVE CUSS To ZCUSS, — 


+s W770$RGC=310 


4760\IF RGC = "A" OR “"B" MOVE 1 TO RFLAG 
B790\CONFUTE TDALL ROUNDED = PERCENT * p 
HBOO\COMPUTE DIFDA (SUK1,SUB2,SU33) = DIFDA (sU51,SUB2,SUB3) 
“WB10\+ TDALL WRITH THRNKEC FROM TREC ADD 1 To TRMCNY ae me 
WB20\GO TO P315=ADD, 
WB30\TF RGC = "C" OR “"D" MOVE 2 TO RFLAG 
KEUO\COMPUTE TDALL ROUNDED = PERCENT * D 
SB850\COMPUTE DIFDM (SUb1,SUBZ,SUB3) = DIFDM (SUB1,SUB2,SUB3) 
U860\+ TDALL WRITE TEMREC FROM TREC ADD 4 TO TENCHNT 
“WETO\GO TO P345-AnD, midge 7 gas eg ae 
GBKONIF FGG = "E” OR “F" MOVE 3 TO RFLAG 
GB9O\CONPUTE TDALL ROUNDED = PERCENT * D 
WQOO\COMPUTE NIFDEX (SUB1/SUB2¢SU83) = DIFDEN (SUb1+SUB2,SUB3) 
4910\4+ TDALL WHITE TeEMREC FROM TREC ADD 4 To TENCNI 
#92Z0\GO TO P31S"ADD. 
WO30\IF KGC = "G" OR “H" MOVE & TO RFLAG 
WOLO\COMPUTE TDALL ROUNDED = PERCENT * p 
WOSONCOMNPUTE DIFLoM (SUB1,SUB2,SUB3) = PDIFDO™~ (SUB1,SUb2,SUB3) 
&960\*+ TDALL WRITE TEMHEC FROM TREC ADD 1 TO TEMCN] 
W9TO\GO TO P3157ADD. 
WOBO\TF Fee = "go" OR "K" OR "L" MOVE 5 TO RFULAG 
ug9u;3 ADD D TO TEMTOT aie as ee, : Pa = 
5O000\COMPUTE TDALL ROUNDED = PERCENT 
50103 ADD TDALL TO Fubror 
5020\CONPUTE DIFUEX (SUp1,5B2,SUR3) FY (SUB4,SUB2,SUB3) 
5030\+ TDALL WRITE TEMREC FROM TREC 
5O04U0\GO TO P215°ADD. 
BOSGNNOVE G&G TOCRFUAG, = = = 
SO6O\COMPITE TDALL ROUNDED = PERCE) ; 
5070\corPpuTFr NIFDAB (SUB1,SUB2, SU DIFDAS (SUB1,SUBZ2,SUE3) 
SO8O\+ TDALLe 
SOOONWRITE Tem&ec ¢ROM TRec, 
S10C\ADD 1 TO TENCNT, 
5110\GO TO P315“ADD. 
51203P315"A0D, 
91305 IF PERCENT > °.97 ADD D TO 
51403 GO YO READ-100, 
51508 IF PERCENT > ".87 ° ABD D TO 
5160% GO TO READ-400, 
HivOs £2 PESCENY » Ules App pb tO 
51608 GO TO READ-100, 
51903 If PERCENT > °.77° ADD D TO REQBO 
92008 GO TO READ}@-4\0, 
52108 If PERCENT > “73 ADD DBD TO REOTS 
52205 GO TO READ-100, 
S230  =MOVE PERCENT To PEROC, 
52405 DISPLAY “ PERCENT ERROR FOR FUDGE " 
5250: Ga To EnDeuuu, 
S260SREWV=320, 
S270\CLOSE TEHMFILE, 
S2BO\OPEN IPPUT TEHFILE, 
“Bouue HOVe teases Le Disevl, 
53003 DISPLAY “S FOR TENFILE “” DISCNT, 
53103 MOVE FUDTOT TO DISCKT, 
53203 DISPLAY "$ TO TEMFILE “ DISCNT, 
53303 MOVE O To TENYoOT, 
» 63408 MOVE TERCNT TO prs F 
53503 PISPLAY "RECS TO TEHFILE " DIScHT, 
53603 MOVE © To TENCHT, 
» 53703 MOVE vw To FUDToT, ~~ al 5-3) 


S380\MOVE © TO LFLAG, 
53903 MOVE REQ4 0 TO REQWO0=D, ee atl nes kes - 
54003 MOVE REQS’ TO REQ9O=D, 
wry Hove kxc25 {6 ~~ _320cS-5, : 
54203 MOVS REQR TO REQSOHD, 
54303 MOVE REQ75 TO REQ7S=D, a i ae _—— 
54uU0s MOVE MREQ100 To MREQIUL=D, 
54503 MOVE NREQY? TO NRHO90eD, pe : ; 
54602 MOVE PREQOBS TO NROQG5@D, 
Sa70t - «~~ 4OvE LLZcc0. 26 Kieoc6->, "~~ "~~~ st~<;3}PSSCté<CS”S”t”;*;*;ti‘<Ctstéi‘ 
SuBOs MOVE MREO7S TO MREQ7S=n, 
54903 DISPLAY “ VALUES FoR FUDGE" REQ100—=n RAOIT=D REQBS<D KFQROH-D 
55003 REQ7T5*D “fg “ MREQTECTD MREQGOTD MREQHS7™D MREQGO=D 
55103 MREQTS@b, ct da 1 aha 
| S5208rF<33c, 
5530NCOMPUTE COUNTER = COUNTER + 1. eee ee a ee 
SSUO\TF RFLAG = 1 GO TO ACFT=346-4, 
S550\IF RFLAG = 2 GO TO HISS™3506 
5560\IF RFLAG = 3 GO TO FNG=360, 
S5S7O\IF RFLAG = 4 GO TO ONHI=37-, 
| SS580\IF RFLAG = 5 GO TO ZXCH™384, 
| 5590\IF DIFPAB (SUB1,SUB2,5UB3) NOT < 0 AND ye ee 
| S600\DIFDAR (SU61,S052,SU83) NoT > 5S GO TO DitMp-u2:, 
| SE10\COMPUYF FUDGE BOVADZD = DAB (SUB1,SUBZeSUB3) / 
5620\ CIFNAB (SUE1,S5UB2,5053), 


S630\MNOVE SUB1 TO S=1 MOVE SUB2 TO S-2 MOVE SUB3 TO S=3 
S640\ NOVE FUDGE To FUD, 

S650NDISPLAY “DIFDAB/RUAB * Si “ " Seg = * Sez "8 
5660\ DAB (SUB1,SU32,S5U53) " . 

5670\ DIFDAB (SUB1,SUBZ,S5U83) “ “ ROAB (SUR1,SUB2,SUB3) " * 
5680\ FUP " = FUDGE", 


‘ 
{ 
| 


| $6903 IF FUDGE S 1, 001 Go TO RHAD=390, 
; 5700 _MOVE DAE (SUB1,SUB2,SUR3) TO ALLOC. _ 7 
| S7108 GO TO P385-FUDGE. 


| S7203KCFT#340, 

| S730NIF DIFDA (SUBR1,S5U52,SUB3$ NoT < 0 AND 
STUO\DIFDA (SUB1,S5U82,SU53) NoT > 5 GO TO DU: PeG20, 
STSONCONPUTE FUDGE ROUNDED = DA (SUB1,SUB2,51153) / 

| 5760\ DIFDA (SUB1,SU52,5U53), 

| S77O\MOVE SUB1 Tu S#1 OVE SUB2 TO S#2 NOVE suUB3 TO S-3 

| §78O\ NOVE FUDGE TO Fud, 

| S7T9O\DISPLAY " DIFDA/ROCA e set ° =<© Geog 9d Fogas e 
5@00\ DA (SUB1,SUBZ2,SU83)'" " 
5810\ DIFDA (SUB1,SUR2,5UB3) " " PQA (SUB1,SUR2,8U83) ' 
5820\ FUD " = FUDGE", 


58303 IF FUDGE < 1, 001 Go TO READ=3950, :. - 
58403 MOVE DA (SUB‘1,SUB2,SUB3) TO ALLOC, 
58503 Go TO P385-FUDGE. 


SBOOSMISE=350, 
S87ONIF DIFDM (SUB1,SUb2,SUp3) NOT < O AND 
SBEO\DIFDM (SUB1,SUB2,SUB3) NoT > 5S FD TO DUMpeu20, 
S5e9O\CONFUTE FUDGE RON DED = pM (SUB1-SU82,f:53) J 
SQ0O0N pIFnw (SUBi,SUB2,SUB3), 
SOTO\MOVE SUB1 TO S#1 NOVE SUBZ TO S#2 MOVE SUR3 TO S83 
5920\ HOVE FUDGE TO FUD, 
5O30NDISPLAY “ DIFDM/ ROM vga, "= Geog © “egy ' = 
S9¥O\ DM (SUBI,SURe,SUK3) " " 
59050\ DIFDY (SURi+SUB2esuB3) * “"RON (SUB4,SUB2eSUB3) % Ww 
5960\ FUD ” = FUDGE", 

1 $9703 IF FUDGE S$ 1,.001 Go TO KRHAD=390, 


SOTO\DISPLAY “pIyoitsRQek “sei “ * seg” * sey ® 


$9603 MOVE DM (SUE1,5U52,5983) TO ALLOC, 
599C3 GO TO P3BRB-FULGE, 

BOUCSENG360, 

6010\TF bIFDEN Cota te svedy nie 3) wor © OCRND 
OO2ZO\DIFPEN (SUR? b2,S5U83) NOT > S GO TO nirepeb25, 
OO3IO\COMPUTE FUDGE. SOUNDED = DoN (SUB1,S5UR?,suB2) / 
OOUO\ DIFNEN (SU81,5URZ, 5053), 

OOSO\MOVE SUB1 TO S=1 NoVFE SUBZ TO Se2 NOVE sUR3 TD) Se3 
6060\ MOVE FUPGE To FUL, 


6080N\ DEN (SUB1,5U52,SUb3) " 
609G\ DIFDEN (SUKR1,5UB2,SuUR3) " “ ROEN (SUR1,SUBZ,SUE3) " a 
6100\ Fub " = Ses 


61103 IF FUDGE < “004 Go To READ=390, igs 
61203 MOVE DEE Deiat ee UB3}) TO ALLOC, 
61309 Go To P3S8S-PuULcE, ig a ad eae 


OIKOSONFT-379, 

GISO\IF DIFDOM (S5t51,SUB2,suUR3) KOT < ¥U AND 

O160\DIFDOM (SUB 1+SUB 2.5083) NOT > 5 GO TO Divp-u25, 
G6ITO\COMPUTE FUDGE FOUNpRO = pol (SUB1,SUB2,sUR3) / 
6160N DIFDON (Su21,SUR2, 5053), 

Gi9O\NOVE SU51 TO S=TiioVe SUB2 TO S-2 NOVY SuB3 TO) SoF 
620C\ NOVE FUDGE TO FID, 

O210NDISELAY "DEF DON/ RON egal “FS iges = * gale 
6220\ Don (SUB1,5UB2,SUB3) " 

O230\ DIFDOMU (SUS1sSUR2,SUuR3) ™ "ROOH (SUR Ts SUBZaSUBS) * 
624C\ Fup " = FNLGL" 


6256: fF Puce < hee G04 G6 TO READ=360. ent ea ag ae . ie 
ven MOVE DOW (SUB1,SUn2,sUR3) TO ALLOC, 
62703 Gu TO Pp3a8s-Frudar, 


O2KOTEXCHM IED, 
G290NIF PITHEX (SUE1,SUB2,SUR3) SOT < O AND 
©300\DIFLEX (SUA1+SUbZeSUB3) NOT > 5 GO TO DrMped2y. 
O31O\COIPUTR FUDGE ROM Spey = ook (SU51,50R2,6053) 7 
6320N DIF Xx isuety sya, auuad: 

6330\NOVE SUB1 TO S=4 Liove sUB2 TO S#2 NOVE «Ug3 Ty S83 


6340\ MOVE FuNGH To FuUb, 
O350O\DISELAY "NIP Der/PuEs " coy * « Sez en “ 54306 ‘ 
6360\ DEX (SUPRI,SUn2,SUB3) “ x 


O370\ DIFDFY (SUR1-5U82,SUs3) " ~“ ROEX (Stn 4, SUBZ.Sussy “w 
63603 FUD “ = FL 


6390: IF FUDGE © 1,°601 Go TO READ=390, 

6400s NOVE DEX (SUB1,S5uUn2—pSUR2) TO ALLOC, 

64 i0SP385“7UDGLS 

64203 COMPUTA TRHO = REGIOO * PeNgU + Roses + REOGO # REQTS, 

6U30$ COMPUTA MTPEO = MnBQIC) * MREQGO + = RTYSS + MAEQBO 4 cx5 
64405 MREQVD. 

6u50% MOVE TRrQ TO TRHOWDs 

64603 MOVE MTRFY TO MTREOMDe 

64703 MOVE ALLOS TO ALLuced, 

6UK03 BESEPLAY © TOTAL Rig * TREQ]*D “ MONTFIED TOTAL AEQ * 
HEYIOE GPREOSE © RAS AgLoc “ AELOC@n, 

05003 


GOMPUTE Xt ROUNDS = ( ALLOG © FEO «0 |} # 


» 05108 ( MRRGOO * HREOSS * NRegue + AReOT7S ), 

' 65205 IF X41 © Teitit oVE £1 TO AU GO Bo PSETHeNISPLAY, 
65205 COMPUTE XZ ROUEDES ©& (| ALLOG © RFOIIG = Reosd fF / 
65405 ( NESCES + asgtG * HREQ7TS 3}. 
65508 Se AS << Ty 7765 Te XZ TO RC AG TH PSSTAHSSPLAY, = 
65608 CUMPITE XS RouN = ( ALLOC = PFOIN0 = RFQYO = FEGeS ) 7 
657608 ( ARE + AEQTD )e 


GO TO P3B7=DISPLAY, 
_PEQ&S = REQ80 ) / MREQ 


GO To P387=DISFLAY, 


5803 TP 43 ¢ 41,2509 wove £3 To x0 
65908 COMPUTE Xu ROUNDED = 
66008 — ( ALLOC = REQi100 = REQSO = 
66103 “IF X8.< 7.9338 wave xe To xO 
66208 MOVE 0 TO xo, 
66303;p387=nISPLAY, | mis 
664C$ MOVE XO TO XG=pD, 
66503 MOVE X71 To Ximp, 
66603 MOVE X2 TO X2=D, 
[COLDS MOVE komo ete pne me | Ph) poetry? ps) ea a ee 
66602 MOVE X4& Ta X4=p, 
66908 — MOVE FULGZ TO FUD, 
67008 DESPEAY “ PUDGE = " PUD ™ X1="° X1ep & X2=" K2—D * 
67108 X3ep “ Xb=e" Xuep “ FINAL FUDGr=" XOad, 
67208 MOVE X90 TO FUDGE, 
60730: IF FUDGE < 9.9999 Go TO END-~4GO, hPiasl adr to. a 
o740$ MOVE © TO XO, 
67503 Meve 0 To x1, 
67608 MOVE © To x2, ; 
aye MOVE Tet KS 
6750: MOVE J To x4, : < 
Sete gs ae Poe ae ie s. 
CEC? DAD TEMFILE AT END MOVE CUS TO HCUS MOVE CUSS To KCU 
68 10\NOVE “WRS23 TO HW¥BS23 HOVE DRAW TO HDRAW MOVE To RFLAG 
6820\MOVE OC TO HOC CLOSE TEMFILE OPEN OUTPUT TENFILE 
69303 MOVE TENTOT TO DISCNT 
6E408 DISPLAY “ # OF NON CHANGES AFPTER FUDGE ™ DISCHT 
68503 MOVE FUDTOT To DrscNT 
68608 DISPLAY “ SUM OF NON CHANGES AFTER FUDGE © DISCHNT 
6570 MOV? TO TEMToT 
68605 MOVE TO FUDTOT 
OBYCE MOV TO REQI1OC 
69003  "oVE © To REGSO Wer aa ee eT 
6910! “oven TO REQES 
66208 HOV TO REQSO 
69303 MOVE TO PEOQTS 
69403 MOV: TO MREQ400 
69505 MOVE fo mRewod 
69608 MOVE _TO_MREVYBS_ - ; 
69703 MOVE TO MREQSU 
6°80$ MOVE: TO MREQ75 
69903 DESPLAY “ TOTAL ALLOC To TAPE * FUDSUY 
70008 MOVE TO FUDSUM 
7010\coO To Cus-130, 
TOZO\MOVE TEMREC TO AREC, 
70303 MOVE ADALL TO TeM@VAL, 
TO4“CNCOMPULF ADALL ROUNDED = ADALL * FUDGE, 
70508 IF TWH“VAL = ADALL ADD 1 TO TEMTOT 
70603 ADD ADALL TO Fubrate 
70703 ay ADALL > AD MOVE AD TO ADALL, 
70808 ve APDALL TO FuDSUNe 
JOSOSWRITH= 95, aa eos ee 
» 7100\N arTe ALLREC FROM AREC, 
7410NADD 14 10 ALLCNT. 
11203G0=410, 
7130\GO TO READ@=39 , 
1140s puNPRK 20, 
TASONREAD YEMFILE AT END shed CUS TO HKCUS MOVE CUSS To HcUSS 
TAGO\MOVE WBS23 TO KHWB8523 HOVE DRAW TO HRRAW MOVE 9C TO HOC 
TATONCLOSE TEMFILE OPgEh OureUT TENFILE M 


OVE oO TO RRLAG 


iy 


| 
| 
| 
| 
' 
| 
| 
| 


| 
‘ 
| 


7180\GO TO CUS=130, 
TAIO\MOVE TEMREC TO AREC, 
T2O0O\PERFORM WRITFeGOu, 
7210\GO TO DUMP-42>, 
T2208 CHECK=$430, 

TO30\IF LFLAG NOY = O MOVE 7 TO FLAG GO TO RFWR320, @ °° © 
T24O\IF RFLAG NOT = 0 LOVE 4 TO FLAG GO TO REN#32U_ 
T2503 END-440, ; ‘as eet te te 
T260\MOVE PERCNT TO DIScNT, 

“TZTO\DISPLAY “NO, OF PERCENT REC READ = ¥ DISCNT, 
7J2B8O\MOVE MODCNT TO DISCHNT, 

T29O0\DISPLAY “NO, OF REQ REC READ = “ DISCNHT 
T3Z00\MOVE TEMCNT To Drsent, 

TIIONDISPLAY “TOTAL NO. OF TEMP REC WRITTEN = ' DISCNT, 


wee eS 


TZ20\MOVE ALLCNT To DIScKT, 

“FISONDISPLAY “NO, Of ALLOG Rec WRITTEN =“ prscrt, as emailer Bae aa 
7340\MOVE KEQCNT TO DIScHT, 

TISONDISPUAY “NO, OF REQ DOL REC READ = “ DIscNT. oi aca 
7360\CLOSE PeRFILS MOpFyle pOLRrle TEMFIUR aLLprbr REQFILE, 


T3TO\STOR RUN, 
7380S:ENDIOB 


CATALOG/FILE DESCRIPTICN= RCS/MODREQeR 


. “O10#HEN,R(AC) 
U2USLIDENTIYPI955, LORER(@1)_ CUW 72751 MODREO R 

O30S LIMITS! 155 099A Dee ar ae? 
OGOSSOPTIONSNOMAE 
OSUSSGMAPSNDECA 

| V60 26005, 
Men CstCUEEte.. S08 wteiiten oh lS ge eee ee eee 
OBOSFIELD? (C6,C1,C23,C<,C3,C1, C4,C%) 

| 

| 

| 


OFPOSSEQS(AS+ AS PAE, AZ) ab a + 
WOUSPICKSSELECT,(5),(=5H DAF) 2 
VIOSFILCBIPCH,**,2 eee a ae os ; 
12USEND rae web A 
T30SSEXECUTE SS ee Oe a eB 
PUOS ey THES © TS pee 2K 
ISOSSTAPESSA,X19,,71289, ,MODRAN . ‘ 
160USSFILE2S1,S81R,2 RB 
POS UPL Ee] BSS2, S2R,2-R 
TSUSTEILM SSS, S3hg eR = = LS Oe TR ere. Beds 
“4190S PELE S008 185 L he aS” laa alae 
2008S 2-oRTIo:: -OL, NOMAP 
Ses LaEL BETES /ODREQ* 0 
2200S FYXYRCUTE ; : : Bie = 
2359S SL IMITS$ 155 9,5K : 
SEUSS EDS ca Ri eg Sette ts tee Stee ORs ees ee 
2500S $RENOTE2BS,AC 
2Z6US SENDIOR 

\ 

| = a = 2 

| 

| 

{ 

| 

\ 

{ 

| 

| 

j + 


A.6=1 
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1> S2O\U2 YRK\PTC 99, 


CATALOG/FILF DESCRiPTION= RCS/NODREQ,S 


TOPRPMOVESROUTCAC) <avit,G,lOb\nteend © <o = a 
ZOSSIDENTSWPCISS,LORER(81) WILHELM X72751 MODREQ.S 
30S SLIMITS! 1555, 9K aad aie Paha a cm - 
“OSSOPTION:NONAP 
SOS:COBOLIDECK 
GOOSSPRNFLIC*t s+ WeS,RCS/MODREO,O 
TLOSCEDENRD CATCHY CMCC TTiGnG Neral ee umes Gb eee Pe ee ee ee 
BOLPROGEAM@ID, MODSFQ, 
QOSENVIRONMENT DIVISION, 
TOOSCONFIGURATION SACTLON, 
“TV103SPECIAL@NANES, ; ; 
V20NCOHPILE ERRORS, ~ 
\3O\GTINE IS TODAY, 
TUOSFILESCONTROL: 
ISO\SELECT INFILE ASSIGN TO AA, 
160\SELECT OTFILE ASSIGN TO BB FOR LISTING, 
1708 I-OTCONTHOLs 
VAO\APPLY STANDARD ON INFILE oOTFILz, 
FOOSDATA DIVESION, a ed a eee Se ee ee Ng SS. 
ZOUSFILE SECTION, 
210:FD INFILE 
22C\LABEL RECORDS STANDARD, 
230:01 INREC. 
2U0NC3 FILLERNPIC X{72), 
“250:FD OTFILE ee ass 
Z60\LaBEL RECORDS ARE STANDARD 
Z7C\REPORT IS CUM=REP, 
ZEOSWORKING"STORAGS SECTION, 
290377 INCNTI\PIC 9(7) VALUS O CoMNPR-1, 
(300877 OTCNT\PIC 9(7) VALUE O CoMP=1, 
SIOS7T) VISENTINETS 26) 2, det 
320377 REQTOT\PIC G(7) VALUE 0 COMP=<1, 
330377 AMT\PIC 9(7) VALUE © ConNP=<1. 
SkO0277 DATENPIC X(9). 
350°77 ALLTOT\PIC 9(7) VALUE 0 COMP=1. 
360377 ALLOC\PIC 9(7) VaALU® O CONP=1, 
3702377 HLD=ALC\PIC XX VALUB SPACE, 
380377 LCOTR\PTC 99 VALUE 0 COMmP=1. 
390:77 SUBI\PIC 99 VALUE UO COMP=1. 
GOO!77 SUB2Z\PIC 99 VALUE 0 CUMP=1, 
610377 SUBS\PIC 99 VALUE 0 COMP=1. 
420377 SUBU\PTIC 99 VALUE 0 COMP=1. 
) 
0 


430277 CCTR\PIC 99 VALUE COMP=1, 
440377 OCTR\PIC 99 VALUE COMP=1. 
50377 HCTR\PTC 9 VALUE 4 Cope. 
W60377 HCUS\PIC XXX VALUE SPACE. 
470377 RCTR\PIC 9(7) VALUE 0 COMP=1, 
4803/7 DCTR\PIC 9(7) VALUE 0 cOMP=1,. 
“U90$.1 DAZE, a“ Sy te 
500\' 2 XMO\PIC 99, 

510\°2 DAT\PIC 99, 


S30N02 TYHENPrc OTS) COMP<4, 

, $403.1 DTE, 

550\T2 Dio\PpIc 99. 

SEQ0\ 2 PILLDX\PIC X VALUE "/", 
: $70\02 DoOT\PIC 99, S Bae 


\: V1SONOS FILLER\SLZz 22 VALUE 


580\(2 FILLDY\PIC X VALUE "/", 


590\.2 DXYRNPIC 99, 
60031 TREC. 

STOVUS PCLPIC XXXX, 
620\°3 FY\PIC XX, 


O630\"S RGEC\PIC X. 


640\"3 KS\PIC X(10). 

6S0\02 NPS\PIC X(1-3, = = = =——S ae Fe 
660\'3 WHS\PIC X(5). 

@TONGS CUS\PIC EXX, CSS 

6B80\"3 OC\FIC X, 

“SSONUD PRENPICO Xk 8 
7OO\'3 ALC\FIC XX, 

TAGS. SRAUNEIC i. °° &73]57©C - 
742\C3 RID\PIC XX. 

ChIGNGS QIYNE TS Se 

TF2ZO0NG3 REOVPIE 907). 


T30\03 MD\PIC X(5). 
7T4UO\%3 PRI\PIC 99, 
TSONGS REGOCNPIG FCP )e 
T60\C3 FILLER\PIC X, 
F702 tT “SUntRE a 
SEOs O02 TOEXOECURS 3). 
790\03 TDRAW\OCCURS &, 
8OO\ 04 TDOL\PIC 9(7) OcCUKS 23. 
810851 RTAB, 
B20: O02 ROC\OCCURS 3. 
B30\'3 RDRAR\OCCURS Ge 
B4UO\ O4 PDOL\Fre 9(7) OCCURS 23, 


B502' 1 OTA, re a 


S605 02 OOENOGCURS 3. 

B870O\'3 ODRAW\OCCURS 4G. 

880\ 04 OpOL\PIc 9(7) OccuFS 23 — 
“690391 GRTABe  - 
900% O02 GROC\OCCUKS 3-6 

Y1O\C3 GRDRAW\OCCURS 4, 

920\ 04 GRDOL\PIC 9(7) oCCURS 23, 
930304 ATA, 

940: 02 AOC\OCCURS 3, 
Q50N73 ADRAWNOCCURS 4y 
960\ 04 ADOL\PIC 9(7) ccCuKS 23. 
9703.4 AOTABe 

980: 02 ADOC\OCCIRS 3, 

99ON'3 RODEAKNOCCUBS &, 

1000\ O48 AODOL\PIC 9(7) OccuRS 23, 
“40103017 AGTAS, ‘poo raat 
1020% O02 AGOC\OCCURS 
1030N03 AGDRAWNOCCURS 
1040\ OW AGDOL SPIC 9(7 

1050301 CONRGCe 
1060\03 FILLER\PIC (56) VALUE 

FOTON” B 2198 {i Sn ho an » aa 
* VOBON\OS FILLER\PIC X(5&) varies 


3, 
iy 
) 


OCCURS 23, 


19 1090\" TOT G H TOT J 


1100\03 FILLER\PIC X(49) VALUE 
1770\" 8 v p R $ 
1120201 FGCTAR REDEFINES CONRSC. 
ta0g Uz TROGNPLG Xt)? GSCuURS 23% 
1190801 REQALL» 


A ° 6-3 


VIGO\"REQUIREMENTALLOCATIONS™, 
11703071 ALRE REDEFINES REQALL, 
UURONDS REN OTS LCI) GR CUNe 2. oe ee eee 
11903REPORT SECTION, : | 
1200%RD CUN"REP 
1210\CONTROLS ARE KCUS HCTR 
1220\PAGE LIMIT IS 64 LINES 
“T230\HEADING 1 
124UO\FIRST DETAIL 7. = a a = a 
4250301 TYPE IS CF HCUS WEXT GROUP IS NEXT Pace. ila 
12603 O02 LINF PLUS 01, 
1270\03 COLUMN 2\SZEZE 128 VALUE ALL “*", 
1280301 TYPE IS CH HCTR, 
“42905 O2 LINE Plus 03, — 
1300\03 COLUMN 2\prc x(11) sOUKCH AR (CHCTR), 
“430; Ul LINE Bits TU, 
1320\03 COLUMN 2\SIZE 
1330301 TY Ph XS PH, 
13408 O02 LINE PLUS O 
T350\03 COLUMN 2\SIZE 
1360\03 COLUMN 7\STZE 
Z 
I 


Tit WANE: sited ete 


e 

© VALUE VOPR. "5 

> VARUE “XRSXX Ss : 
E 24 VALUE "DOLLAR TOT K's BY CUSTOMER", 
is 44 VALUE “CONTROL NUMBER’. 

. 


“T370\03 COLUMN Ge\sri 
1380\03 COLUMN 116\SI% 
1390s O62 LINE PLUS 07 
TEOONOS COLUMN 2N\STZn S VALUE “DATH ™, 


| 
‘ 
i 
| 4410\03 COLUMN 10\PIC X(9) SCURCH DTZ. 
t 
| 
| 
\ 


{ 


TE20\03 COLUMN SONSIZS 44 VALUE 
1430\03 COLUMN 62\PIC Xx SOUKCE 
W44O\03 COLUNN BYU\SIZE & VALUE 
4uSO\03 COLUMN 9ON\PIC XxX SOURC 
1460\03 COLUMN 122\SIzr 4 Vabus 
IGV70\03 COLUMN “427\PIC 22z9 SoU 
14803 92 LINE PLUS O2¢ 


1W90\03 COLUMN 246\SIZE 7 VaLus 


1500\03 COLUMN 66\STZE 8 VALUE 
1510\03 COLUMN 106\ST2ZE 5 VALU 
15208 O2 LINE PLUS Of, 


SPESCAL YEAR. 
PY. a7 
"CUSTOMER", 
E HCUS. 
“PAGE ¢ 
RCE PAGE-COUNTFR, 
"ORGANIC", | 


"CONTRACT", 
POUR 


1530\03 COLUMN 14\SI2% 1 VALUE “D", 


| 4540\03 COLUMN 246\SZZ5 4 VALUE "Re - a 
1 ¥550\03 COLUMN BuU\SIZF 4 VALUB "A" 

1560N03 COLUMN 4Y2ZNSIZE 3 VALUE “TOT”, 

1570\03 COLUMN S6\SIZE 1 VALUE “D", 

15B80\03 COLUMN 66\SIZFR 1 VALUE “R", 

1590\03 COLUMN 76NSIZE 1 VALUE “A. 

T&é00N03 COLUMN BANSIZE 3 VALUE “TOT, 

“1610\03 COLUMN O9&\SIZE 4 VALUE “D", i. 

V6Z0\03 COLUMN 1US\SIZE 1 VALUE “R", 

16S30N0S COLUMN TTENSEZS 1 VaAbUS TA: 

1640\03 COLUMN 126\SIZE 3 VALUE "TOT", 


i} 


+ 4670801 RL TYPE DE 
+ 1680\03 COLUMN 2\PIC X(7) SoURS 


1650$ O2 LINE PLUS 0, 
1660\03 COLUMN 2\SEIZE 128 VALUE 
LINE TLUS 01 


ALL ee 
. 


E TRGC (LOTR), 


1690\03 COLUMN 1U\PIC 2(6)9 SOURCH TDOL (1,4,2L,0TR 


) 


1700\03 COLUMN 2U0\PIC 4(6)9 SOURCE TDOL (4s 2eLCIR), 
1710N03 COLUMN 3UNPIC 2(6)9 SOURCE THO, (1,3,LCTR), 
I7Z0\03 COLUMN GU\PIC 2(6)9 SOURCE TDOL (1,4%,LETR). 
A@7TIZON0S COLUMN S2NPIC Z(6)9 SOURCE TDOL (Ze 7, LCTR) : ~ 
A7UONOS COLUMN GANPTC 2t6)9 SOURCE ToOLZ (2,59,40TRY< 
+ 1750\03 COLUMN 72\PIC 4(60)9 SQURCH TDOL (2,3, LCTR). 


3 


1760\03 COLUMN 82\PTC 2(6)9 SOURCE TDOL (2,4,1LCTR), 
1770\03 COLUMN 94\prce 2(6)S SOURCE TDOL (3,%,2LCTR). 
1780\03 COLUMN 104\PIC 2(6)9 SOURCE TDOL (3¢2-LCTR)e 
“TT9O\NO3S COLUMN T14\Prc 2(6)9 SOURCH TpOy, (3,3,LCTR), 
1800\03 COLUMN 124\PIC 2(6)9 SOURCE TDOL (3¢4,LCTR)- 
WalOspRaceDEns CLVtoLoN.. | . ; 
‘820ISTAKT=0, e 
AGIONOREN LNPUT ENEIGn OUirot ostLe. - ~~ . 


2170\TF CUS WSYS* HOVE 86 TO CcTR GO TO p0=PRoG, 

Z218C\MOVE 9% TO CCTR. BS 

Z196NADD 1 TO OCTR, : 
| 2200\MOVE OTAB TO RTAB. 
| 2270NMOVE AOTAB To RTABL,  — oer te en ae AE Soe Paso F; 
| 2220%poepRec, ; 
| g250Ntr OC = "EC" HOVE 2 TO Svat, : a is 
22U0NIF OC = "0" MOVE 1 TO SUB1, 

Z2250N\TF DRAW = “D" HOVE 1 To SUB2Z Go TO CHK-"6¢C, 
| 2260\TF DRAW = "K" MOVE 2 To SUBZ GO TO CHK->GC. 
pee TUNCE WRAW GR” HOVE o co Sune GO <0 ChK=sceeCSCSCS:CCOCOCOCOTC*C 
it 228O\ADD 1 TO DCTE, 


wee 


10 2290NZF DRAW = “W" GO TO WRONG*DRAW FLSE GO TO READ=10, 
! 


184ONACCEPT DAZE FROM TODAY, : 
| Toro 46 to F400, +  # = °. . Par ais) , 
1860\MOVE DAT TO DbT. f 
IBVO\MOVE YRX TO DAY. iit ie Raia ae ie ay gy ia : ieee , 
18SO\INITIATE CUN<SEP. : 
T690\HOVE ZERO TO OTAB AOTABe = rahe eae 
| 1900\NOVE ZERO TO GRIAB ASTAB, a ee ! 
IQ 1OSREAD@ 10, saci : 
1920\READ INFILE AT END GO TO END=20, ; ae = 9.5 " 
TOSONADD 1 TO INCNT. ig 
19LO\NOVE INREC TO IREC, ‘ 
| F950\IF CUs = HCUS GO To Da-PROG, === 2. © ie 
1960\IF HCUS = SPACE GO TO 2% RO-SUM, 4 
4S7ONIF HOCUS = “AFR® CO TO Geu-is1 ~~~ = = ———C“C<‘; 2 73} Ft fala a 
| 1960\IF HCUS = "ANG" GO To Gune15. 3 
| 4I990\IF HCUS = “DA “GO To GuN<15- q 
| 2OCO\TF HCvS = “PAF" GO TO GEN™15. = Zoe >, Xo 4 
| 2010\IF HCUS = “py “ GO To grn@15,. 4 
1 2020\IF HCUS = "MAC" GO To GuKn15- ‘a 
| S0a0Nae Hause “Ki® Go fo. ciueios = = == = FE 
| 2O0UO0\EF HCUS = "SYS" GO TO GEN=15, e 
| 2050\IF apoL (3,4,23) = 0 Go TO GEK<15, : : ; ¥ 
i 206C\GO TO GEN@1°, 4 
ZO7TOSZEKOM—SUM, jf 
208C\MOVE ZERO TO SUMTAB ATAB RTAB, a 
| 2090\NOve Cus TO HCUs, Rn eee ae a 
i} 210CN\IF CUS = "AFR" MOVE 4 TO CCTR GO TO pOwPROS, = 
| 2110NTF CUS = "ANG™ MOVE 2 TO CCTR GO TO DO=PRNG, vO: = = 
| 2120\rF CUS = "DA " MOVE 3 70 CCTR GO TO DO-tROG, 
; 2130\IF CUS = “DAF" MOVE Y TO CCTR GO TO DO-FROSG, al = a 
| 2460\rF cUS = “py " nove 5 To CcTR Go To po=rRos, he 
| 2TSONGP CUS = "HAC* MOVE 6 TO CCETR GO To bo=proc. — 3 
| 2160\IF CUS = “MAP” MOVE 7 TO CCTR GO TO DO~>ROGe 
| = 


io 22973WRONG=DRAW, 

5 2292\NOVE INCNT To DISCnT, 

7 @293ND15eLAY “No? USzp pkAW ™ DRAW DISCNT TRec, 
peeseweve DCrn TO DISCeT, = = == & — eh aa oa en ee 
6 229SNDISPLAY “THIS MANY "° DISONT, ' 
x 2296\G9O TO READ@=10, i 


2 


ange 


| 


2ZUIOSCHKTS1. 


2500NIF Koc < 
2510\EF RG < 
Z2520NIF RGE < 
2530N\TF RGEC < 
2540\IF RGEC < 


Z25590\MNOVE 
2560\60 
25708GEN@=15, 

25G0N\TE CCOTR = 


ZOG0SRFOMRY 
26 10\MOVE 


ei 
NE r) 


C ” 
8 nn Of 
ia} 
We OF 
Ww 
woe 


it 


iOVE 
HOVE 
MOVE 
Saye 


nove 


22 TO Sued, 
TO STOTHRINE « 


GC 
Cnt 


Z3008CHK=RGC, 

2310\IF RGC = "A™ MOVE 
2320\IF 3GC = "R" MOVE 
“2330N\IF RGC = “"C™ HOVE 
2340\NF RGC = “"D" MOVE 
2350\I@ RGC = “E" HOVE 
2360\IF FGC = “F" HOVE 
23TO\T® RGC. = "GY MOVE 
236O\LF RGC = “H” MOVE 
“2390NLF RGE = “I OVE 
2U00\IF RGC = “K" MOVE 
2410\IF RGC = “L™ NOVE 
24U20\IF GG = “N" SOVE 
2430\IF RGC = "N” HOVE 
SULONDE ROG = "EP MOVE 
ZUSONEF RGEC = “RK YE 
24U60\IF RGC = “S" MOVE 
2470\ADD 1 TO RCTRe 
2U72\MOVE xCTR TO prscer, 
ZU7U\DISPLAY “INVALID 
24U76\MOVE INCNT TO DIS 
2U7T7I\DISPLAY “THIS REC 
24U8O0\GO TO READ@=10, 


1€ 


TO 


TO 

TO 

To 
TO 
To 
TO 
To 
To 
PO] 
T0 
to 


To 


T9 


‘ - 
DIS 
TO 


De) 


Toa 


SUB3 PERFORM 


SUB3 PERFORM 
SUB3 PERFORM 
SUB3 PYRFORM 
SUR3 PERFORKF 
SUS3 PRRFORM 
sUB3- 
SUB3 


PERFORM 
SUB3 PERFORM 
SUB3 PERFORM 
SU8B3 PERFORM 
suBg3 
‘SUB3 
SUB3 


CHT 


Sus4 
Sunu 
Sus4 


GO 20 SFr 
@o TO St 
uy 


6Q TO §S 


PERFORM 


‘TO SU#3 PERFORM ADDeLINE 


ADDLINE 


“TO Sups PERFORM ADDeLINE 


ADDeLINE 
ADDeLING 
RDOeLINE 
ADD=LINE 
ADD- LINE 
ADDLINE 


RUN|LINE. G 


ADDLINE 
ADD=LINE 
ADD<LINE 
ADN=@LINE 
ADpe LINE 
ADDLINE 


RTNE, 


TO SUB4 GO TQ STOT-RTNE, 


TO 
TO 


fs 


TO 

TO 

TO 
TO 
TO 


Tor 


TO 
ve) 
ee) 
TO 
TO 
TC 
To 


9 MOVE RTAB TO OTAB MOVE ATAB TO AOTAB 
2590\GO TO ZERO=SUM. 


TO HCTR, 


Z262C\MOVE RTAB TQ SUMTAB, 


2630fLINESETNE 
2640\MOVE * 
ZO50SLINE“GEN, 
2660\GHENERATE 

2670NIF LCTR = 
Z6XO\ADD 1 
ZE90\GO 
27TV08LIREss 
27 10NEXIT, 

2720SALOCHRTNE 
Z730\NOVE 
2740\N0VE 
Z27TSO\PERFORNM 
2Z7TOOSRETURN@LT 


TO 


Xie 


RL, 
23 


NEo 


TO LOTR, 


GO 


40 LEOTRe 


LINE@GENe 


2 TO HOTR, 
KTAB TO SUMTAB, 
LINE@RKTNE 


2770\GO TO ZERO-SUK, 
27TBOLADD"LINE, 
Z790\ADD REQ TO DOL 
ZE00NADD ALOC TO ADOL 
ZB1IO\ADD REQ TO DOL 
Z2820NADD ALOC TO ADOL 
2B30N\ADD PO TO DOL 
ZBUONADD ALOC TO ApoOL 
1 2650NADD 


TO LINETEXIT,. 


THRY LINKH@EXIT, 


(SUR1,SUB2eSUB3) 

(SUB1,6,S5U83) GRDOL 
(sUE1,4,5U53) 
(JeSvU8S,SUKR3) GRDOL (32,5U82-SU33), 
(3,5Up2,5U53) 


KiO TO DOL (394,SUBK3} GRDOL (3,4,5U43), 


(SUB1,SUB2-SUB3) 


GRDO 
AG 


AGDOY 


AGDODL 


CHK=fT, 


CHK<ST, 
CHK=ST, 
CHK=ST, 
CHK-ST, 
CHK-ST, 

CHK=S1T. 


CHK=ST,. Pe 


CHK -ST, 
CHK=ST,. 
CHK@ST, 
CHK=ST, 
CHK=ST, 
CHK@=ST. 
CHKeST, 


CHK=ST, 


L (SUB1,SU52,SUB3), 


poy, 


(SUb1,4,S5U83). 


(3,5U82,5UB3). 


(SUE1,SUB2eSUS3) >. 
(St84,4,SU53), 


rs 
| 
| 
| 
| 
| 
| 
| 
3 


| 
| 
| 
| 
| 


2860\ADD ALOC TO ADOL (3,4,SUB3) AGDOL (36e%eSUB3), : 
2870:STOTeRINE, a eee 


28BO\ADD REO TO DOL (SUB1,SUB2,SUB4) GRNDOL (SUB1,SUB2,SUB4). 
Qe90\ADD ALOC TO ADOL (SUB1,SU82,SUSU) AGDOL (SuB1,SUb2,SUBG), 
2900\ADD REQ TC DOL (sUa1,4,SU84) GRDOL (SUB1+4,SUR4),. 


2910\ADD ALOC TO ADOL (SUB1,4,SUB4) AGDOL (S1151,4,S5SUB4), 0° 


2920NADD RBYQ TO DOL (3,082, S084) G2DOL (3,SUB72,SU84), 
“2930\ADD ALOC TO ADOL (3,S5U82,SU5%) AGDOL (3,5U26SUB4).— a ee a ee 
2940\ADD REQ TO DOL (3,4,SUB4) GROOL (3,4,SU%4), 
ZISONKDD ALOC TO RDOL (3-5, SUB4a? AGDOL (3.4,st85), °° °° °° °& °» » & © 
29603 TOTHRTNEs 
“2970\ADD REQ TO LOL (SUBT,;SUB2.25) GRDGL (SUBT,;SUB2.23}% © = = ~~ 
29B8O\ADD ALOC TO ADOL (5UB1,5U82,23) AGDOL (SUB1, SUE2,23).— 
ZOSO\ADD REQ TO LoL (SUB1,4,23) GFDLOL (SUB Tyo, 2306 3 
30CO\ADD RLOE TO ALDOL (SU31¢4%—23) AGDOL (SUB1,u, 23} 
JSOT0\ADD PHO TO POL (3,SUR2,23) GEDOL (3 2G 2525 ne 
3020\NADD ALOC TO ALDOL (3,SU62,23) AGDOL 139s TH2223)0 
3O030\ADD HeG TO DOL (3,4 es SRDOL (Sede 23) 

3040\ADD LOC TO AbOL (34,23) SGDOL (3,0,23). 

30S50N\ADD 1 TO OTC 

3960\GO 9 READ~ 10, 
“3070: END=2e iy ie ee ere 4 TE a as Be aa ai <n. 
3ORO\TF CCiR = 9 MOVE “OTH” TO HCUS PERFORM bFORkRTNE THRU 
3090\ ALOCTRENE GO TO END=25, 

Z1CO\PERFOFMN REQ*RINE THRU ALOCHRINE, 

3170\UN0VE OTAB TO SUlitaAs, 
AES NGlOde “OTH” To HEUS, 


T30\h Ove 8 fo) Hews se Ae a ae ak ae a ee a a aE 3 keds as ee ee) 
Midi cll said M LINE-RTNE THRY LINETEXIT. 
3TSO\MOVE AOTAB TO SUNTAB, 


3160\H0vF 2 TO HCTR. 

SITO\PERFOEM LINE-RTNE THRU LINE-EXIT,. 

ZIEOLEND“25¢ 

“3190 \N OV; i vile) ENG Oe aNd eee aki ee Ore es) jee 
3200\NOVE “GRN" TO HCUS, 

3270\MOVE GRTIAB TO SUMTAB, 
B220\PERFORM LINE@RTNE THRU LINE“EXIT, 
323U6\N0OVE 2 TO HCTR, ars ie aa ae 
324UO0NMNOVE AGTAB TO SUMNTAB, 

S250\paRFORM LINESKTNE Thai! LINE“EXIT. 
3260\MOVE INCNT TO DISCyT, 

SZ7ONDISPLAY "NO, Ur REC READ = “ PIrScnT, 
3280\MOVE OTCNT TO DISCKT, 

3290\DISPLAY “NO» OF Rec WRITTEN = “ DISCNT. 
B300\TERNTEATS CUlleREP, 

SS IONCLOSE INFILE OTFILE, 
peeeeaes RUN 

333092:ENDIOB 


APPPNDTX 2.7 


PROCPAM 


13 


CATALOG/FILE DESCRIPTIONS RCS/MODSUM.R _ 


] 
| 
] 
] 
| 


——- $$ + | 


“OVO#HN,R(AC) 
O2OStIDENT:WPO9SS,LORER(81) COW 72751 HMCDSUMeR 
O30S$s1LIt ‘TTS! 15599 9K 
OLOSTOPTION SNOMAP 
“O50SIGNABP!\ DECK a 
O60L600SM¢ 
OTUTSORT: PCB a, 12 
OSOS FIELD? (C6,01,C23,C2, C3,c1,C4, ci, €16,65,C9,61) 
O90:SEQ: Ch10> A12pA5eAhZeA8) Sa a Se gp a pe mee ae egg 
sdesbrcesdebeet. 154. (= SK DAF! 
TTOSETLCR SPCR, * po 
1220S END 
“PZ0S TEXECUT 
WWOUS ELINITS! 10,5, 2K 
TBOS{TAGED Shy S 1p, 71289, ) SODRAN pa a a ade eee ae a 
T160SSFILEIS1,51R,2 
47083 FILE S82,S2Z2K;,2°R et a ee aie eee ta Te a ee ee ee 
IBUSSFPILESS3,S53R,2 R 
“tOUSSPILES SZ, 1S, it sn 
ory 


a 


+ 


ZO0S 20PTIGH SCOBOL,® 


21083 eRueey eeeenerey - Sanaa - ae i a “eu 
22US SEXECUT 
4305 SEIReT a TSp ep OK . ae i i a ie 
ZUOSEPILASAA SA TRo ott 
“Z250SSRENOT: Pee pe a ek Re PS ees a ae ae a aa 
26USTENDIJGOS 
(ae ae Re eae AA Be ON IRD. at er ee. A ee et eR i =i. fen ee en 
| 
| ; ies 
| ; 
{ 


CATALOG/FILE DESCRIPTION= RCS/MODSUM,S 


TO#BM 3—p5— 165 \p 12930 cow 
20S:IDENT2WPO955,LORER(B1) WILHELM 72754 MODSUM,S _ 
SOS SLINITS$ 85 559K 
GOSS OPTION? NOMAP 
SOS*CoBNL: DECK 
GOS SPRMFLEC* Ve SpROS/MODS YH LO 
TOSIDENTIFICATION DIVISION, 

BOSPROGRAM@ID, MODSIUN. 
QOSENVIRONEENT DIVISION, 
JOCSCONFIGURATION SFCTIOX 
VIUSSPECIAL=NAMES, 
120\GTIME XS TODKY, 
TZU\COMPILS BREOKS, 
IWOSFILE-CONTROLe 
THONSELECT INFLEE ASSIGN ARe 
16U\SELECT OTFILE ASSIGN BB FCR LISTING, 
17G3I-O-CONTROL, 

VEO\APPLY STANDARD ON InFILE OTFILE, 
“VOOSDATA DIVISION, ‘val : 
200sFITLE SECTION, 

Z2103FD INFILG 

Z220\LABEL FFCORDS STANDARD, 

230201 INREC. 

2U0\03 PILLER\PIC X(72), | 

2503FD OTFILE 

Z60\LABEL RECORDS ARE STANDARD 
2TO\REPORT IS CUMeREP, 
ZBVSWORKING*STORAGE SACTION, 

290377 INCKETNPIC 9(7) VALUH 9 CoNP-1. 
300277 OTCNT\PIC 9(7) VALU 0 ConPe1, 
“310:77 ABDDCET\PIC 9(7) VALUE 0 COMP-1, 
320277 DISCNT\PIC 2(6)9, 

330377 REQTOT\PIC 9(7) VALUE 0 CoMP=1,. 
340377 AMT\PIC 9(7) VALUE 0 ComPe-1, 
350277 DATHN\PIC X(9). 

360377 ALLTOT\PIC 9(7) VALUE 0 ComP-1, 
370577 ALLOCNPIC 9(7) YaALuE 0 ComnP}=1, 
389377 HRGC\PTC X VALUL SPACE, 

390377 RGCTOT\PIC 9(7) VALUE 09 COMP-1, 
WOUS77 ARGCTOT\PIC 9(7) VALUH U COMP=1, 
G10:77 HCUS\PIC XXX VALUE SpACE. 

420377 HHDS\PIC X(5) VALUE spackE, 
430377 HPRINPIC AX VALUE SPACE, 

BU0377 CUSTOT\PIC 9(7) VALUE 0, 

6503/7 ACFTOT\PIC $(7) VALUE 0, 

W60377 ACUSTOT\PIC 9(7) VALUE © CONP=1, 
&70277 RCUSTOT\PLC 9(7) VALUE «| COMP=1, 
480377 RACFTS\PIC 9(7) VALUE 0 COMP<1: 
“GO0S77 RACE TS\NPIC S(7) VALUE 0 COMP<1, 
500377 CTR\PIC 9 VALUF 1, 

510377 QUOT\PIC YV9(6) VALUE Oc 

'¢ 520877 PERCUS\PIC SYS(6) VALUE »o, 
530377 PERACFT\PIC 9¥9(6) VALUE <. 
bUOS 77 PERGUONPIC S99V9 VALUE 3. 

550277 PERTOT\PIC $99V¥9 Value Cc, 
5.0877 PERMDS\PIC S99VY¥ VALUE &. 
6 570377 INSUFT\PIC X VALUE SpACKe 


560:77 CNT\PIC 9 VALUE 0, _ = = 
So0:7? actrvre 9465 ile FT co-1, 


600277 CCTR\PIC 99S9 VALVE 1 COMP=1. 
SiOs0ut DAZHe 
620\u2 XNo\PIe 99, 
630\02 DAT\PIC 95, 
640\ 2 YRX\PIC 99, 
650\02 TYME\PIC 9(&) Compet, 
660301 DTH, 

67ONG2 DMO\PIC 99, ~~ 
6B8O\2 FILLI\PIC X VALUE “/"™, 
C90\'2 DDT\PIC 99. — i a a 
FOOD FILED IG 2 VALUE “y*, 
710\02 DXYFN\PIC 9S, 
F2050% PREC, eae 
“FIONCZ PONPIC XXXX, 
THO\''3 FY\PIC XXe 
7TSONU3 RGC\PIC xX, 
760\03 KS\PIC X(10). 
TTONUS HDSVEFC XC, 
760\ 03 WRS\PIC X(5). 
VEONMSCCUSNEEOCU KEK, 
8OO\.3 OC\PIC xX. 
B10\.3 PAC\PIC XX, 
B20\CU3 ALC\PIC XX, 
B3ONG3 DRAKNPIC X, 
833\' 3 RID\PIC XX. 
Os6\73 OTY\Ple F(7), 
BUO\E3 REQ\PIC 9(7). 
BSONTS MENELOC XS); 
860\3 PRIVPIC 99, 
870\.3 ADOL\Pre 9(7), 
SBONUS PILLERNPIC ¥. 
HSGsOG SUBTES,; — 9 
9OO\O3 SVAL\RIC £(18) Valusy 
9103091 TABSUB REDEFINES SULTAR, 
920\03 SUBT\PIC X(9) oCcURS 2 
9Z0SREPORT SECTION 

QuOrKp CUMePEP 
“OSONPAGE LIMIT TS 57 Lines 
960\HFADING 1 

S9TO\FIRST DETAIL 8 

1 QY9BO\POOTING 55, 


SsUp TOTAL’, 


=% 


| 9903 4 CL TYpy IS be NexT GRoup PLUS 02, 

t 000% O2 LINE PLUS O02, 

| “TOTO\OS COLUMN S\SIZE S VALOR "e==", ate ane eres as ‘ 

| 1020\03 COLUMN G\PLC ¥(5) SOURCE HYDS, 

| 1030N\02 Coney T1INSr25 4 VALUE Nene", 

| 1040\03 COLUMN 195\SIZ¥ 17 VALUE "CUSTOMER SU®TOTAL", 

| “WOSO\OS COLIN 32\STZE 7 VALUE °*", 

| 1060N03 COLUMN 33\PIC XXX SOURCE HCUS, 

in TAO NOS GOLURY acces | Le CSCC CSC:CO™OCOSSCS EES 
1OEO\OS COLUMN 37\SIZE 12 VALUE ALL ">", 
TO9ONOS COLUMN USNEIC 2,224,429 SOUFCE FRrOTOT, 
» 1100\03 COLUMN 65\PIC 2,222,429 SOURCE RGCTOT, 


l. 


4710ON0S COLUMN GS\PIC 2,722,279 SOURCE ALLTOT. 

V1Z0N03 COLUMN W01\PIC 229,9 SOURCE PERTOT, 

“TTSONOS COLUHN TCO\PIC X SouRcH INSUFT,~ 
1140\03 COLUMN 176\PIC 252220229 SOURCE ARGCTOT. 

11503801 


AL TYPE IS De NEXT GROUP PLUS 03, 


| 
! 
' 
! 
| 
| 
| 
{ 


THONGS (GX, 


11603 O02 LINE 
1170\03 COLUMN 


1180\03_ COLUMN 
“4190\03_ ‘COL UaX 
1200\03 COLUMN 
4210\03 COLUMN 
1220\03 COLUMN 
1230\03 COLUMN 
1260\03 COr,UN: 
“F250\03 COLUMN 
1260\03 COLUMN 
1270\03 COLUMN 
1280201 TYPES Is 
12903 O02 LINE P 
1300\03 COLUMN 


43 10\03 “COLUMN 
1320\03 COLUNN 
1330\03 COLUMN 
1340\03 COLUNN 
1350\03 COLUMN 
1360\03 COLUHN 
1370301 TYPE FS 
T38Cs OF TINE 


1390\03 COLUKN 


TWOO\O3 COLUNY 
1470\03 COLUMN 
IWZO\"DPEN REOU 


UnN 


IHEONG3S COLUMN 


14503 O2 LINE 
1WOO\O3 COLUMN 
1470\03 COLUMN 


14UB0\03 COLUM 
TUGO\O3 COLUMN 


1500\03 COLUAN 
510\03 COLUMN 
1520% 02 et 
1530\03 coun 
1Sb0O\03 COL aE 
1550\03 COLUMN 
i560\03 COLUIIN 
1570\03 COLUMN 
158O0\03 COLUMN 
1590\C3 COLUMN 
1600\03 COLUNN 
1610\03 COL,UNN 
16208 Oe kennes 
1630\03 COLUNN 
1640\03 COLUMN 
1650\03 COLUMN 
1660\03 COLIN 
“467O\03 COLUMN 
1660\03 COLUKN 
1690\03 COLUMN 
1700\03 COJ,UMNN 
1710\N03 COLUNY 
1720801 RL TYPE 
1730\03 eons 
7UO\O3 LUMN 
1750\03 Ses 


PLUS O1, : Baek Son oe yas 
3\S IZE 3 VALUE AFR ee 
_6\PIC X(5) SOURCE HMDS. 
1i\sr2t ¢ hls or, =~=~—t—“‘<—<C;<; 3}EChtéti<‘ ; ;STt*éi‘ié‘iS alia 
1S\SIZE 17 YALUE “AIRCRAFT SURTOTAL", 
SINSISE 1) VALHE EEL ">". a er ae 
UO\PTC 4,222,423 SOURCE REOTOT. 
65\PTC 2,222,429 SOURCE RECTOT. oo 
SS\PIC 2,222,429 SOURCE ALLTO?L. 
TUINPIC 229,9 SOURCE PERMNDS, ie a a cach Vie LID Sahat 1 ae 
1C6\PIC x SOURCE INSUPT, 
E\PIC 2,262,249 SOURCE ARGCTOT, is 
PF, : ; 
PLUS 01, 
3\SI4ZE 3 VALUE "***", 
6\SIZE 1 VALUE "Ee" 4 Re A a ee 
S\SIZE 24 Varese “YALUE O FN AVY FIELD ", 
29N\SIZE 24 VALUE “RESULTS IN # APPENDED”, 
SEUNBIZE 27 VALUE “ ZERO PLACEN TH PERCE™. 
TIXSTZE SY VRLUR “NEAGE Fretp pUS 15 Un? 
Q2\SIZEZ 21 VALUE “CERTAINTY oF QUOTIENT", hn Sate 
PR, 
PLUS O1,>% 
3\S] ZB 3 #V em VOPR s 
TYPES CUS) Vain “XRS, *, 
UUNSTZE 51 VALUE : 
IREMENT@“ALLOCATLION SUMMARY BY MODEL DESIGN", 
Vi2\SIZE 3 Value "RCN", : ip te ae 
116\SI2Zn 14 VALUE “CONTROL NuvpER", 
PLUS O14, 
2 \STZE 4 VALUE DATE. 
ee K(9) SOURCE DTE. 
SONSIZE 71 VaLUa “FLSCAL YEAR", : is ee 
“64\PIC AX SOURCE FY, ats Haitate c 


4225 eae Q VALUE “PAGE” 
127\PIC ZiZS SOURCE PAGH=COUNTER, 


PLUS oe 
2\SLZE 9 
10\SIZE 


iy 
“MODEL 


VALUE 
8 VALUE 


"CUSTOMER", 


22\SIZE 12 VALUE “REPAIR GROUp", 
36NSIZS 8 VALVE “LEVEL oF, 

YE\NSIZE 11 VALUE “REQUIREMENT”, 
62N\SIZGE 17 VALUE “CUMMULATIVE REONT", 


ALLOCATED". 
“PERCENT® 


pie ae 9 VALUE 
OO*"VSIZE F VALUE 


TEGRELeE 21 VALYUB “CUMMULATIVFE ALLOSATED", 
PLUS O16 


2\SIZE "DESIGN". 


6 VALUE 


12\GIZE & VALUR “CODE, 
2Z4U\SIZE 8 VALVE “CATEGORY”, 
SENSESE & VALVE "PREORITY", 


WE\EIZE $4 VALUE "DOLLARS (SOA0)", 
64UNCTZE 44 VALUE “DOLLARS (sor)", 
B3NSIZE 10 VALUE “DOLLARS (S060), 
AQOINSIZE S&S VALVE “REQNT", 
TTUNSIZE Th VALVE “DOLLARS ($900)"% 
DR LINE PLUS 01. 
2\P1C X(5) SollRCS HMDS. A - 
1Z\PIC XXX SOuRCE Hcus, 
26\PIC X SOURCH HRGC, 


1760\03 COLUMN 
I770\03 COLUMN 


1768O\03 COLUMN 


“T79ONT3 COLUNN 


1800\03 COLUMN 
1810\03 COLUMN 
1820\03 COLUMN 


GO\PIC XX SOURCE 
UO\pre 2,422,223 
ES\PIC 252240422 
BONPIC 2,e8a,ogo 
1C4\PIC 229.9 sou 
TUE\PIC X SOURCE 


116\PIC 252429229 


HPRI, 
SOURCE 
SOURCE 
SOURCE 
RCE PERO 
INSUEFT. 


REOTAT, 
RGOCTTe 
“ALLUTOT 
ud. 


SOURCE ARGC 


TOT, 


“VBSOSPROCEDURS DIVISION, 
TEUOSSTARTHU, 
“TE5O\OPEN INPUT INFILE oUTSuT OTFILE, ~~ ee oe 
IBGO\ACCEPT DAZE FROM TODAY, 
“1870\MOVE XuO TO Dito, € is Oo Gh ce en Ge OE ein, ae 
1BBC\MOVE DAT TO DLT. 
“EGONHOVES VRE TORDXU Rae =, = 2 | lS 
| “AUMVONINITIATE CUMeREE. et eee fete ate Hate An em. fete es, a 
| 1QNIUVSRPEAD=i0, 
| TOZO\READ INFILA AT EXD GO TO FINISH=70 
19Z30\ADD 1 TO INCHT. : = a. 
| sQu0\MOVE INREC TO YREC, 
| I9503CHECK=12, ee 
| ‘4960\IF RGC EQUAL To HRGC Go TO CHECK=19, 
| ‘4STONIF HRGC = SPACE GO TO INTTTAL=15, ae ge a Se Ye ga er 
; V9O80$SUPT<$:TNT1, 
TOQONTE ALLTOLT = ZERO ViOVE 1 TO CNT GO TO INSUFT<RINE, 
| 2000\IF REYTOT = ZERO HOVE 1 TO CNT GO To INSUFT=RINE, 
2010\pivin:, ALLTOT BY REQTOT GIVING QuoT, 
ZOZONMULTIPLY QUOT BY 100 GIVING PERQUO, 
2030\G0 Ts kyo= 1. eet = eS ao es aie i a ae ail Se te ia 


1 
QOUOLINSUFTARTN 
{ 


20b0\NOVR "#" TOY StrT, 
| 2ZO60\IF CNY = 1 NOVE ZERO To pEROUO, 
| ZO7ONETE CNT = 2 MOVE Zero Bo PERTOT. 
i ZOSO0NIF CNE = 3 MOVE ZERO TO PERMDS, 


2OS0sice< 1c. a a me 

Z100NADD REOTOT 
| Z2110\NADD ALLTOT 
| 2120\GO To 
} 21303SUFI~z 
' 


n 


TO RCUSTOT, 
10 ACUSTOT, 
GEN@50. 


Crist 


| 214ONDIVIDE ACUSTOT BY PCUSTOT GIVING PERCUS, _ Tl ee 
| 2TSO\MULTIPLY PERCUS BY 100 GIVING PERTOT,  — Tae ; 


| 21603SUFT“RTNA3 + 
| 217ONDIVIDE AACETS BY RACFTS $IVING PERACFT, 


| 246O\MULTIPLY FERACFT BY 100 gLVING PERNDS 
ZISOSINITIALW 156 
Z200\NOVA geRO TO KROT TOT ALLTOT, 
| “2270NMOVE GC TO HRGCS ee ae hs eae ee ae a ae 
| 2220\movF TO ACTR. 
| 2230\MOVE FD TO EMDS. aa : eae 
224O\NOVE CUS TO HCUS, 
2250\MOVE pRI TO HpRI, mf os : 
22°O\MOVE 1 TO CTR: 


“22 OtCHECK= 19, 
1 228ONTE CU: 


S NOT EQUAL To HCUS 


2290\IF KD NOT EQUAL TO H 

S300 SCOMPUTEWI% 

ZZIONMOVE FREQ TO ANT, 

Z3Z0NADD Aji? TO RECTOT RGCTOT, 
A3S3S0\NOVE ADOL TO KELOC, 
Z234UON\NADD ALLOC TO ALLTOT AKGETO 
Z2350N\ADD 1 TO ADDCNT, 


GO 


TO SUFT-RT 
MDS GO TO SUFTWRTNF4, 


4, 


2360\GO TO READ=10, 
2370scuUs=39. 
SABO VROD BCOSTOT FO BACR TR. ae ne a es 
239C\ADD ACUSTOT TO AACFTS, 1 
24UOO\IF ACUSTOT = ZERO MOVE 2 TO CNT PERFORM INSUFT=RTNE, 
24Q10\XF RCUSTOT = ZERO MOVE 2 TO CNT PERFORM INSUFI-RTXNE, 
2U20\IF CNT = © PERFORM SUFT@RINE2, 

2U30\MOVE 2 TO CTR, 

QQU0\ADD 1 TO CCTR, ss 
24U50\MOVE KCUSTOT TO REQTOT, 
2uU60\MOVE ACUSTOT TO ALLTOT, 
ZU7TO\GENERATE Cl, 

ZU60\ADD 1 TO OTCNT, : ; 
2490\MOVE ZERO TO ALLTOT REQTOT CNT. | 
(2500\MOVE SPACE TO INSUFT, . 
2510\MNOVE ZERO TO KCUSITOT acUSTOT, 
25203ACETSEH4O, 

2530\LF CUS = HCUS PERFORM cUS=3-. 
25U0\ADD 1 TO ACTRe 


2550NIF AACFTS = ZEFO MOVE 3 TO CNT PERFORM TNSUFTS|RINE, 
2560\IF RACFTS = ZERO NoVE 3 TO CNT PERFORM JNSUFT*RINE, _ A 
25/70\IF CNT = © PERFORM SUFT<RINES, 


256O\MNOVE BACP’ 
2590NMOVE AACE’ 
Z6U0\MOVE AACPTS 
2Z610\MOVE RACFTS 
Z62ZO\GENHRATE AL, 
Z630\ADD 1 TO OTCNT, 
Z2640\MOVE ZERO 170 AACFTS RACFTS C¥T. 
Z65O0\MOVE SPACE TO INSUFT, 
2E60ISGEN=5°, 
Z2670\NGENERATE Rle 
Z680\ADD 1 TO OTCNT. 
ZOFCSEXIT=O08, 
Q2TOO\MOVE ZERO TO REQTOT ALLTOT CNT, 
27710\MOVE SPACE TO INSUFT, 

2720\IF Cus NOT = HCUS PERFORN Cus<30, 
27TZ30N\IF MD NOT = HDS PERFORM ACFTS“WO, 
ZIGOSRETURK=]=65, 
2750\NGO TO INITIAL#=15, 
2760°FINISH"/0. 

2770\MOVE ALL "Z" TO MD, 
Z7BO\MOVE “Z" TO RSCe 
ZTIONHOVE "ZZ" TO CUS, 
2BU0\PERFORN CHECK=12 THRU EXIT“60, 
|; 2810SBND<BG, 

| 2820\MOVE INCNT TO plscrz, 


3 


1 
nn 


© ALLTOI, 
Oo ACFTOT, 
o cUSTOT, 


u 


2B30NDISPLAY “NO, OF REC READ = “ DISCNT, 
2840\MOVE ADDCNT TO DISCNT, 

Z850\DISPLAY "NO OF REC SunMED = " DISCNT, 
(2860\MOVE OTCNT TO oIScNt, 
Z2B7ONDISPLAY “NO, OF REC WEITTEN 
 2BBO\TERMINATS CUMSREP, 
289O0\CLOSE INFILE OTFILE,. 
Z900\STOF BUN, 

Z9O10SSERDJIOB 


i 

= 
LS] 
H 
w 
nQ 
=! 
ta | 


A./J=6€ 


ADHr 
. str te 
7 ees 

PPOACPAM i 

; T 
+I 
= MONS 
ne) Dp 
<i =~ ANDS 

n5090.S 
) 6 55 


{ 
Mop eek nae eee 8 Set ON oer ee eee Ok ee ba in eat ee 
CATALOG/PILE NESCETETIONS pCS/NodS00, 8 


727541 MODSO0.R 


| 
! O1VO#BN,R(AC) 
O2ZUSSIDENTSWPO955,,CRER(81) caw 
OS0SszIMITSs715,,,1-« ae oe 
OUOSSOPTIONINONAP 
OSUSSGMAPSxDECK 
060260084 
O7OTSORTS FCB, 2 12 
OBOS FIELD? (C30,62.063,03,02,C10,C7) 
| 090:SRQ:(A5eD7) mes 
VOUSPICKIESELECT,(3).(=5H DAF) 
TTOSFILERS PCR, *_2 °° ee 
| 20rEND 
| 130SSEXECUTE 
} WOSELINTTS 21555 12K 
| ISUSSTAPESSA,X1D,,71289, »MODRAN 
| 
i 


V6O0S2FILEES1,51Re2 & 
VTOSS PILES S2,S2R,2 Ft, 
IBOSSFILESS3,S3Re2 R 
AQUSVPIEL* Seek (Sp ol 
Z200S soPTTONSCOBNL,NOMAP 
ZiVSSSELECYT SROS/MOLSUU,.0 
220$sexXecurA 
23USSLIMITS? 15405 
2UOStPILESAAP,ATR, 


K 
fi 


4 

‘ 
2 
eo) 


“E2505 FREMOTLFAB,AC Se MA Bae ir ee ee ee et ae 
2605 TENDIOH 
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ee 

| 
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CATALOG/FILE DESCRIPTIONS RCS/MODSIO.S 


“OOOTHEMOVP, ROUTCAC) 2,8, 165 \, 12,30 
QOO2ZSSIDENTIWPOISS,MMRER/CUW 


sult 


MoD5U3.S 


OQOO3SSLINITS! 159529K Fe a gar ee 
COUKSS OPTIONS NOMNAP 
QOO5S7COBGLIDECK 
OOUGSSPREFLIC*,¥,5,8CS5/400500,0 
VOTO SIDENTIFICATION DIVISION, 
OOZ0:PROGRAM@ID, MOoD50.-, 


OOSOSENVIRONNENT DIVISIoN, 
VOSOSTCONFIGURATION SECTION, 


OOS5O02SPECIAL“NAMES, 
OOS0\CONPILE ERRORS. 
OO7OSFILE-CONTROL, 
OOBO\SELECT INFILFE ASSIGN 
OO9O\SELECT OTFILE ASSIGN 
O0100%I-C=CONTROL, 
OTIONAPPLY STANDARD ON 
O120:DATA DIVISION, 
OTSOTELLE SECTION. — 
OTGO8FD INFILE 
OTSO\LAEEL RECORDS STANDARD, 
0160261 INREC, 

O170\G3 FELEER\EIC X¥(72), 
O1GOSFD OTFILE 

OIGO\LABEL RECORDS ARE ST 
O2Z00\REPORT IS CUM=REP. 

OZ TOIWVORKINGeSTOKAGE SECTION, 
Q22007 7 TRONTNEIC VALUE 0 COMP=1, 
0230377 OTCNT\PIC VALUE 0 COMP=<1, 
O2N0577 DISCNT\PIC 2(6)9, 

O250877 REGTOT\PIC 9(7) VALUE 0 COMP=T, 
0260377 AMP\PIC 9(7) VALUE 69 cOMP=1. 
O27OT77 DATENPIC XS), 

0280377 ALLTOT\PIC 9(7) VALUR YU COMP=1, 
0290277 ALLOC\PIC 3({7) yALUE 0 Comp-1, 
0300377 HLD@ALC\PIC XX VALUE SPACE, 
‘03 1030 ie TR C e aN ai eA Roc seine 22 
O320\03 PC\PIC XXXX, 

O330\03 FY\PIC Xk, 
O3W¥0\03 RGC\PIC X. 
O350\0F KS\Pre K(17, 
O3FO0\03 MPS\PIC X(10)- 
O37ON0S WESNPIC X(5), 
O380\03 CUS\PIC XXX. 
O390\03 OC\PIC X- 

GUOOKOS FAC\EITC XX, 
0410\03 ALC\PIC XX, 
OUZO\03 DRAVAPIC Xe 
VG30\03 RIDNTIC XX, 


INFILE 


OTFILE, 


‘ OUUO\O3 QTY\PIC 9(7)¢ 


‘ 
“ 
‘ 


Bi 


io OUSO\O3 RFQ\PIC 9(7), 


OUGO\N3 MO\PIC X45). 
OU7O\O3 PRI\PIC 99, 
OU8O\OS ADOL\PIC 9(7). 
O“JO\OS CUSS\PIC xX, ~~ 
O500SREPORT SHCTION, 
05103RD CUN=REP 


TO BB FOR LISTING, 


O520\CONTROLS ARE HLD=ALC 
O530\PAGE LIMIT IS 55 Lines 
OSYO\HEADING 14 
“OSSONFIAST DETAIL 6, 
0560301 TYPE IS CF. HLD?-ALC NEXT GROUP IS NEXT PAGE, 
05708 O02 LINE PLUS O71, a : 
0580291 TYPE IS PH, 

05903; O02 LINE PLUS O01, 

0600\03 COLUMN 33\SIZE 39 VALUE ; wee 
O610\"DPEM REQUIREMENTSALLOCATION SUMMARY BY ", 
0620\03 COLUMN 72\SIZE 25 VALUE 

O630\"HIGH BURNER WEAPON SYSTEM» 


0640: O2 LINS PLus 01, 

O650\03 COLUMN T9\Pre X(9) SOURCE DATR, i: = <9 
0660\03 COLUMN SO\SIZE 11 VALUE “FISCAL YEAR". ; 
Q670\O03 COLUMN 62\PTC XX SOURCE FY, : Oe ae ; eat 
O680\03 COLUMN 8Y\STZE 3 VALUE “ALC”, 

0690\03 COLUMN S5\PIC Xx SOURCE ALC. : 
OFCONOS COLUMN F22NSTZE & Vabue “PAGE. 

O71C0\03 COLUMN 127\PiC 2229 SOURCE PAGE~COUNTER, 

07203 2 LINE PLUS 02. : 
O730\03 COLUMN 7\SIzE 57 Vahyus ek Or ee 


OTHON" MODEL 
0750\03 CoLUMS 
O760\"LF 


PSFULO 

la oO ihe? | 
DY\SITZE 5é4 
REQUIREMENT 


CUSTONER #OPKLOAD BREAK=", 


VALUE 
CUMMULATIVE 


vPry 


VEL REOMT 


ALLOCATED". 


O77O0\03 COLUNN 114\SIZE 16 VALUE “CUMNULATIVE ALLO", 

O7S0% O2 LINE PLUS 01. 

0790\03 COLUMN 3\SIZE 55 VALUE Gr ota io eee Ge 
O800\"DESIGN SERIES CODE GEOUP CAT CoDh DOWN STRUCTURE", 
08710\03 COLUMN S59\SIn75 55 VALUE 

OBZON“PRIORITY POLLARS($005) DOLLARS ($000) POLLARS (S000)", 
0830\03 CoyUMN 115\sIzz 14 VALUE “DOLLARS ($000)", 

0840801 RL TYPH DE LINE PLUS 01. 


0850\03 cCoLUmy G\pre X(49) SoURcE MDS, 

0860\03 COLUMN 18\PIC XxXx SOURCE PC, 

O870\G3 COLUMN 29\pPIe X SOURCE RGCe 

OBBO\OS COLUMN 36\PEC AXX SOURCE CUS, 

O890\03 COLUMN 47\PIC X(5) SOURCE WBS. 

OJOO\O3 COLUMN S2\~pTC 9S SOURCE PRI. 

09170\03 COLUMN 7ON\PIC 4,224,429 SO'UKCE REQ, 
QO920N\03 COLUMN 86\PIC 2,222,229 SOURCE REQTOT, 
0930\03 COLUMN 102\PIC 252429229 SOURCE ADOL. 
O9OUO\0S COLUMN 117\PIC 2,222,249 SOURCE ALLTOT, 


OSSOS PROCEDURE 
O960:START=%, 


DIVISION, 


OO7O\OPEN INPUT IN 
COOHO\ACCEPT DATE, 
VOYO\NINITIATE CUM@FEP. 

1OVU0EREAD@106 

1O10\READ ZINFILE AT END GO TO BND<2v, 
1020NADD 1 TO INCNT, 

1030\MOVE INPEC TO TREC, 

10UO\IF ALC NOT EQUAL To HLD@ALC 
1050\ MOvi ALC TO plpealec, 
1060NIF RF.) LESS THAN 500 Go TO READ=10, 
JO7O\MOVE REQ TO Alive 

TOBO\ADD AMT TO REQTOT, 


FILE oUTPuT OTFILE, 


MOVE O TO RFQTOT ALLTOT 


JO9ONMOVE ANDCT TO aLLoc, 
1100NADD ALLOC 
11105GEN@ 15, 


TO ALLTOT, 


Fs s— = = — a“ 
———— eee ange eel ieee © a — —— == = iH y 


1120\GENERATE RL, 

Seseunge ee Ca 
1140\GO TO READ=10, 

“iS 0tENDe20e 
1160\MOVE INCNT TO DISCNT, 

“TitGQULGriny “hs OF foe LAD = * Scar, 
V1BO\MOVE OTCNT TO pIScnT, 

“WIGG StitarLay “NO, OF REG Wart?’ < Jiccer, 
T200\TERMINATE CUN@REP, 
TSTONCLOSE-ENFELE Ot FLL sess i 
1220\STOP RUNe : 
eaaC CROC Nee ae ee ee ee 
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CATALOG/FILE DESCRIPTION= RCS/NODALC«R _ 


OTOHEN = Lion ae 
U2USSIDENT:WPO955,LORER(B1) cuw 72751 MODALC,R- 
OS0SSLIMITS! 15,0531 K ia ee ee © eee 
OUOSF OPTION SNOMAP 
OSOSSGNAPRINDECK 
0692600SK 
UTOSSORT- FCB ye 12 
OBOS FIELD? (C6,C1,C23,Cé2, c3,c3,C2, yC17,CD) 
“0903: SEQ? (AT#A99K2) 7 

100sPrcK:SzLect, (5), (= DAF) 
TIUSFILCES FCB, **,. 2 ae ah, tah ae 

AZO2END 

Brae, 

Tat 

ISUSETAP? 

ROG ERELE 

T7USEPIDS: tye 

1gOSSPTILE?S 

1GOSTPILE 87 

Z00SSOPTIAN: 


2i¥S3SoLecT 
2205 SEXECUTE 


ie) 


"2SIUSSEINETS 2 Seep) 


24YOSSFPILESAA, AIR, 2 
“250sisYsoursar 
26 0S FENDION 


CATALOG/FILE DESCRIPTION= RCS/MODALC.S ss 


“TORHN £465, 163\, 12,30 i ee ar ne Ra aa Rare st 
2OStIDENTS¥POOSS,MMRUR/CIW 72751 MODALC,.S 
SOSSLINITS? 15652e9K Tapa my 
SOSSOPTIONS NOMAD 
50S? COBOL? DECK 
OOSSPRMFLIC*, VeSsRCS/MODALC,O 
“TOSIDENT IFICATION DIVISION, 
BOSPROGRAM@ID, 1iODALC 

QOSENVIRONNENT DIVISIONS, 
| 
| 
t 
| 
t 


1OOsCONFIGURATION SECTION, 
1103 SPECIAL@KAWE $ 
120\COMPILE ERRORS,  _ 
1B0IPILE-ConTeOLe 
TUO\SFELECT INFILE ASSIGN TO An, 
1SO\SBELECT OTFILE ASSIGN TO BB FOR LISTING, 
1603tO=CONTROL, 
V7O\APPLY STANDARD ON INFILE oOTFILE. 
189SDATA DIVISION 
“FOOSFILE SrCTrronN, 
ZOUSFD INFILE 
210\LABEL FECORDS STANDARD, 
220301 INPEC. 
230UN03 FELRERNPLO x72), 
240sFD OTFILE 
Z50\LABEL RECORDS ARE STANDARD 
ZEO\REPORT IS CUM“REP. 
2703WORSING=STORAGE SHcTION, 
| 280577 ERCHTNPEC S¢7) Value 0 Combet, 
|} 290277 oTcnT\PIC 9(7) VALUA O COnP-1. 
360377 DISCNT\PIC 2(6)9, 
310377 REOTOT\FIC 97) VALUE 6 COMF-1. 
320377 AMT\PIC 9(7) VALUE OS ConP-1, 
330577 TODAY\PIS x(9). 
| S32c77 BATSVPEC ACO}. 
| 335%77 TODAYS=DATE\PIC x(9), 
| Ss60577 ALLTOT\PIC 9(7) VALUE 0 COMP=1s 
; 350277 ALLOC\PIC 9(7) VALUSs 0 CO}VPH1, 
i 


3603/7 HLD=ALC\PIC XX VALUE SPACE. 


S7OSUT TREC. 
SHON S PENPEC XXXX, 
390\: 3 FY\FIC XX, 
HOONOS RECSPIC X% 
| W10\ 3 Ks\RIC X(10). : 
ij &2Z0N°3S MDS\PIC X(12). 
| &30\03 WeS\P1C X(5). 
+ GUONCS CUSNPIC XXX, 
| GOS50\"3 OC\PIC X, 
| u60\.3 FAC\PIC XX, 
RRO S RUORPce ky. © | 7 = shat peerage s TOS Ti 
1 UGO\CS DRAWNPIC X, 
¥B3\V3 RID\PIC XX. 
WBO\' 3 OTY\PIC 9(7). 
HOU\ 3 REO\PIC 9(7). % 
BOO\NCS MDNPIC X(5), > wae ear ee 
SION 3 PRIVEIC 99. — Z 
520N 3 ADOLA\PIC Y¥(7), 
-§ D3ON3 FILLER\PIC Xx, A.9-2 
a iain 


5403;REPORT SECTION, 
“550:Pp cUreREp 
S6U\CONTROLS ARE HLD@ALC 
“S7O\PAGE LIVIT Is 55 Lines 
S80\KEADING 1 
S9O\FIRST DETAIL 8, 
60021 TYPE IS cF ELD-ALC Next GROUP IS NEXT PAGE, 
6103 ane LINE PLUS OTs ae a TTS 
B30¢—02 rive PLUS IT 
640\3 COLUMN RANGERS 46 VALUE 
OSON"DPEN REQUIREMNENT=ALLOCATION SUMMARY BY “ANAGER" 
6608 C2 pre PLUS 01, 
670\ 3 coLUMN TO\PpTC x(9) SOURCE TODAYS=naTr, 
660\ 3 COLUMN SO\SIZE 14 VALUE “FISCAL YEAR" 
690\GS COLUMN G2NPTC XA SOURCE FY. ~ ‘ 
TOON. 3 COLUMN SONSIZE 3 VALUE "ALEC. 
TIO\C3 COLUMN SS\PIC XX SOURCE ALCe 
T2O0N03 COLUMN 422NSITZh & VALUE “PAGE”. 
730\'3 COLUMN 127\PIC £279 SOURCE PAGE=COUNT 
740% O2 LENE PLUS 02. 
“TSONYS COLUMN YNSEZE Sl VALUE 
T6EC\"MODEL PSEUDO REPAIR CUSTOMER WORKLOAD BREAK=", 
TTON33 COLUMN SO\SESE 92 VALUE 
TAO\"LEVEL OF PRQUIRENENT ECUNMULATIVE FEQNT ALLOCATED" 
79ONG3 COLUNN TTRNSIZE 16 VALUE “CUMMULATIV" ALLO", 
800: O02 LINE PLUS Ot, 
B1O\ F COLYER SNSLan SD VALUE 
B2O\"DESIGN SERIES CODE GROUP CAT CODE DOWN STRUCTURE" 
530% 3 COLUMK SI9XSIZE 55 VALUE 
EGO\"PRIORITY DOLLARS(S000) DOLLARS ($000) DOLLARS (S000)". 
B5O\' 3 COLUMN 415\STZE 16 VALUR “DOLLARS (3500)", 
660801 RL TYPR DE LINE pLus O14, 
B7O\F3 coLuNN 4\pre x(10) SoURCE MDS, 
BBO\G3 COLUMN 1E\PIC XXxX SUURCE PC. 
B90\'3 COLUMN 29\Pre X SOURCE RGC, 
9OU\ 3 COLUMN 36\PLC XXX SOURCE cus. 
910\03 COLUMN 47\PIC X(5) SOURCE WKS. 
920\"3 COLUMN 62\Pre 99 Genes PRI. 
G30N"3 COLUMN VO\PIC 2,222,229 SOURCE REQ. 
94O\3 COLUMN SO\PIC 2027420229 SOURCE REOTO™. 
950\ 3 COLUMN 102Z\PIC 2,227,229 SOURCE ADOL, 
S60NCS COLTHN TITNPIC 2,272,229 SOURCE ALLTOT, 
97TUSPROCEDURE DIVISIONe 
QRUSSTAKTHU, 
“QOO\OPEN INFUT INFILE OUTPUT OTFILE. 
4O000\ACCEPT DATE, 
FOTONINIVIATE CUNCREP. 
1O2Z0$READ=10, 
TOSONREAD INFILE AT END GO TO END=<2 
feeetine 4 TO INCNT, 
MUCUNNGVESLiRoG co Lalo. OC 
' 1060NTF “ale NOT EQUAL TO aqlpealco NOVE O TO RrOTOT aALLTOT 
1O70\ MOVE ALC TO HLDWALC, 
108O\MOVE REQ TO ANT. 
1O9U\ADD APT TO REyQTOT, 
1100NHOVE ADOL TO ALLOC, 
“TITONADD ALLOC TO ALLTOT, 
1120°8GRNO 15.6 
i PREC tS a RL, 


a 


| 11U0\ADD 1 TO OTCNT, oe ee eee AL Sac 
4150\Go To READ=10, 
VIGO END=20, 
TGRIONMOEE EMCHE COCOSSCNT SS 9) ©) > ee ae 
V18O\DISPLAY "NOe OF REC READ = “ DISCNT, 
“FTSO\MOVE OTENT To prlscutT, ~~ m4 ee Seg) Mies he ee ee ee 
120ONDISPLAY “NO, OF REC WRITTEN = " DISCNT, - ease : 
IZ10\TERNINATE CUM=REP, 
1220\CLOSF INFILE OTFILE, _ Re RE ee UR A Te Se 
“T230\STOP RUNG 
1240S:ENDIOR ite oe ee 7 : : . 
| 
| Wet) Or Dee ea ee Sere weenie es, Bee ee Be he 
CE ee ee ee Oe TEE Le Ure ee Fee haan Sloe ave. 
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APPENDIX A.10 


PROGRAM LISTINGS - MODPRI.R - MODPRI.S 


a en ee ee i RC a Gs OS OI tent 


CATALOG/FILE DESCRIPTION= 


Oi0FFN,RCAC) OP a a eee hae Ge 
O2USSIDENTSWPGO955,LORER(81) ocdw 
OSOSSLIMNITS! 1599,1-K a 
OGOSSORTIONSNOMAP 
O5US$GMAPSNDECK 
0602690084 
UTOZSORTSFCRea le © 
OS80SPIELD: (C30,C2,C3,C3,C2.C22,C2) 
O9O2SEQ:(ASeA7) 
WOULPICKSSPLECT, (3), (=5H 
VIOSPILCHS PCH, **,2 
12U3 END 
“V3O0STEXECUTE 
THOSSLIMNITS# 159971 K 
TS0STTAPESSA,X10,,71289, ptODRAN 
T60SSPILESS1,51R,2 RF 
TPOSSFILES S2¢S2Re2-k 
VBOSSPILeAs a3 ,S3Re-2 I 
“TOUSTPILETSZ pA 1Sea b 
ZOUSSOPTION: COBOL, NOMAE 
Z210USSSELECTIERCS/NODPRI.O 
220S 2EXBCUTE 
Z3USTLINITS? 'Spuet -X 
(2405 ePILESAA, ATR, 3 L 
Z50SCRENOTESB3,AC 
26US ©ENDJOS 


DAF} 


RCS/MODPRI¢R 


__ 72751 M“ODPRI,R 


DPR1.S 


“WOPHROVE,ROULTAT) Tabs T65N, 1203) ‘ fia 
ZOSSIDENTIwPOC9I5S,MMRER/COW 72754 SODPRI,S 
2cStLs1-tsc eek :)hCOCtC<;2XStttttttlhee 
GOS SOPTIONSNOMAP 
SOteComeetUeCe ee 4 ye a ee nt ee ne ce Pee 
SSSSPRMUFLEC*s%pSeRCS/MOCPRI,G 
BUTIUEN A ccAL CLIC. 0 0CCSC=CS;<7;3 E=‘i‘i‘S3)SSSS™S™C™;™~™”C™C™”™”™™O™”C”™CUC™UUUUL 
TOSPROGRAM=ID, NODERI, il 
SOTENVIRON], ENT DIVISION, : + == - = cits 
QOSCONFIGUHATION SECTION, 
“VOOSSPECIRLENAMES ‘Fae PP ae, Nee ae a ee ee | 
bi 


e 
VIONCOHPILE ERRORS, 
ED tie Deke Rome CINE iC iy d Ge a a a a Sos tT eg ath eee Te eee ee 
T3O\SSLECT INFILE ASSIGN TO ARK, 
TUO\SELECT OTFILE ASSIGN TO BB FOR LISTING, 
1502 [-O=cOxTROL, 
T6O0\APPLY STANDARD ON INFILE OTPILE. 
170°PATA DIVISION, 
TEUSEILE SECTION, 
190:FD INFULE 
2OC\LABEL RECORDS STANDARD, 
Z1IGSVUL ENREC « 
2270\N03 PILLERVPIC X72), 
230885 OCFILE 
“2NONLABEL RECORDS ARE 
ZOO\REPORT IS CUM“REP 


ZEOSWORKING STORAGE SECTION, 4 g 

270877 ENCHENPEE 37) VALUE 0 CoMP=1, 

ZBO:77 OTECNT\NPLG SU7Y Value 0 CoMPa=1. 

290577 DESCRTNPIC Zt659, 

300377 PHOTOTNEX (TeV Micra Olen iO) Mi Soto nl SenO=| NGna a aman ei og 
S10¢77 ANT\ PIC 9( h 


\LUE UO CoMP=1, 
320277 DATHNE 
330577 ALLYOT\PIC 7) VALUE 0 COMP-1, 
) VALUA O COMPeT, 


SEUS7T7 KLLOC\PIC 9 ‘ 
SS0c04 ZREC, 
“S360N03 POCNPIC KXXX ial Gens mk ae air Gr Ra aera et eae ret piel cL ees ee Bane 
STON S FYNPIG XS. 
3B8O\O3 RGC\PIC Xe 
SIONNS) KEXETC EC 10 Y, 
BOON] S MDSNPEC X(T"), 
UTONDT ST WESV\PIC X(S he 
He ONGC CURE OEE OER gs dn cS ye ERSTE a ne Re a maa 
W3Z0N\C3 OCNPIC X, 
WEO\D 2 FAC\PIC XXe 
U50\e3 ALC\PIC xXx, 
G6U\'3 DRAY\PIC X, : 7 
W63\NC3 RID\PIC XX. 
PEERED SED MNS EC OCT Yi ee a a a al 
19 470ON3 REQNPIC 9(7). 
y WBON'3S MLNPIC xX(5)j, 
UGU\.3 PRIVPIC 99, 
e 500N\'3 APOLN\PTC 9(7), ‘ E 
SAN. 3 FLILEERNPIC Xe 


S20sFRYORT Spectro, ane aineaee 
S30SKkD CUMSREP A.10-2 
4 SUO\PAGH LEMIT XS 55 Links 


| 

ey 

ae SSO\HEADING 1 | 
S6UNFIRST DETAIL 8, 
57031 TYPE IS PH. 
“660s O62 LINE PLUS O07, 
| S90\'3 COLUMN 35\SEZE 39 VALUE 

COO\"DPEN REQUIREN iENT=P LLOCATION SUMMARY BY 5. °° °° 

610\ 3 COLUMN 7u\SIZE 22 VALUE 

62U\N"WEAPON SYSTHM PRIORITY", _ 

639: 02 rryB Pius 01, 

6UO\'3 COLUMN 10\P1C X(9) SoURCE DATE, 
+ 650\ 3 coms SONSIZE 11 VALUE "FISCAL YRAR", 

660\'3 COLUMN 62\PLC XX SOURCE FY. 

O7O\C3 COLUMN 122\SIZE &W VALUE “PAGE, 

680\ 3 COLUMN 427\PIC 2229 SOURCE PAGE=COUNT?R 
| 6908 O02 STNE PLUS G2, 
;} /OO0\C3 COLUMN 7\SITZS 57 VALUE 
| 710\"HODEL PSEUDO REPAIR CUSTONER WORKLOAD BREAK@", 

F#20\03 COLUMR SONSITSE S2 Value 
| BEAR. OF REQUITRERENT CGUNMULATIVE REOQMT ALLOCATED 
| 
i 
! 

! 


HONOS COLUMN TIONSITZE 76 VALUE “CURHUTATIVY ALLO, 
ine O2 Tithe PLUS Oc, 


s 


7T60\U3 COLUMN JNSIZE 55 VaLuE 
TTIO\"DESIGN S¥YRIES CODE GROUP CAT CODE DOWN STRUCTURES", 
TBO\3 COLUMN 59\SIZE 55 VaLua 


TOON"PRIORTTY DF YLLARS (S000) DOLLARS (SC00)",_ 
i j 


COLUMN SE6\PIC 2,242,249 SOURCE REOTOr, 
COLUPN TOZNPIG 2,224, 4229 SOURCE ADOL, 


6 ; pe 
BOO\ 3 coLuvN 115\sTZF 14 YALUE "DOLLARS (5000)", 
SFOS RL SYPE OF LINE BLus 04, eke ; ere er ts Us 
| @20NC3 CoLUMK &\erc XCiC) SOURCE MDS, 7 os 
| 630\''3 COLUMN 18\PIC XXxXX SOURCH PC. 
t OUC\i 3 COLUMN 29\PIC xX SOURCE RGC, 
| @850\03 COLUNN 36\Prc XXX SOURCE CUS, 
| S60\C3 COLUMN B7\PTE X(5) SOURCES WES, 
{| 870\/3 COLUMN G62\PIC 99 SOURCE PRRs = eS 
| S8O\03 COLUMN JO\PIC 2,222,229 SOURCE REQ. 
3 
3 
a. 


| 
COLUMN 117\PIC 4,222,429 SOURCE ALLTOT, 
| Q208PROCHDURE DIVISION. 
YZ0SSTAPTH9, 
: QU0\OPEN INPUT INFILE OUTPUT oYFILF. SR eg egies 
YSO\ACCEPT DATE, : 
| Q60NINITIAYE CUN|RED, 
| 97OERFAD=10, 
Q8O\READ IVFILE AT END GO To END=2°, 
YOO\ADD 1 Done 


4 
JOVUO\MOVE INFEC TO TREC, 
1010NMOVE FFQ TO ANT. 
VOZO\ADD AMT TO REQTOT, 
1030\MOVE ADOL TO ALLOC, 


1OWO\ADD ALLOC TO aLLror, 
1O508GEN=15,. | 

> TOGO\GENZRATE RL, 

Ww TOTONADD 1 TO OTCNT. 
1060\GO TO READ@10, 


19 1090S FNDH20, 
TIOO\MOVE INCYT TO DISCKT, 
TAVONDISPLAY "NO. OF REC READ = " DPISCNT, 
TIZO\MOVFE OTCNT TO DISCYT, i 
WiGONDESELALY "NOg OF REG WRITTEN = “ DISCHT, 
VIGO\TERHINATE CUM@REPe 


cn Sr en nen re Se te =e 
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APPENDIX B.1 


FORTRAN SAMPLE MODFLPCT 


FORT 
OLD OR NEW-0 MOUVELPCT32 
ERPR-FILE NAME > CHARACTERS 
OLD DR NEV-0 MOWVELPCT 
READY 
*RUN 
THE FOLLOVING ROUTINE ALLOWS YOU TO CHOOSE THE BUDGET 
PAPAMETERS FOP ALLOCATING DPEM FUNDING. PLEASE ANSWER 
EACH QUESTION WITH THE NUMERIC VALUE YOU WANT 
WHAT IS THE TOTAL BUDGET AVAILAbIE? 
=1650977 
WHAT 3 FUNDING DO YOU WANT FOR EACH OF THE FOLLOWING? 


AFR, ANG,DA,DAF,DN,MAC, MAP, SYS, AND,OTHED 


“*RLEASE INPUT THE VALUES IN ORDER AND REMEMBER TO CHECK 


THAT THEY SUM TO THE BUDGET TOTAL 
S43 782 Wan 

=89 115 

=549 

=1343526 

a2 7278 


KAKKKASUMMAPY OF TNPUT PARAMETERS wt 4m 
FISCAL YEAP 82 
BUDG 1653977 


SAFP 3343782 
DANG A€I39T775 
GUA JdAI5S43 

SDAF 1344526 
SDN 2027278 

HMAC d121931 
BMAP JIADS2A 
ISYS JO22I40 


GOTH 84924531 
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y *D~A041 426 AIR FORCE LOGISTICS COMMAND WRIGHT-PATTERSON AFB OHTO=-ETC F/G 15/5 
y AN OPERATIONAL VERSION OF THE DEPOT PURCHASED EQUIPMENT MAINTEN}=-ETC(U) 


JAN 77 HD HILLIS+ G C MILBORROWs M L REED 
| UNCLASSIFIED WORKING PAPER=90 AFLC-77-1 NL 
a GEESE Bae 


——————— 


M10 i Ms ls 
= = a 
a, Ws 
— lL& 


WSS Ue ee 


SYSTEM ? FORT 

OLD OR NEW O MODELPCS 
READY 

* RUN 


ALLOCATION PERCENT FILF MAINTENANCE PROGRAM ENTER THE 
FOLLOWING IDENTIFYING DATA FY, CUC, DRAW, OC. 


= (Enter values separated by comnas) 

Fnter the percents to be changed usina the decimal form. 
TYPE IN 99. FOR THOSE PERCENTS NOT BEING CHANGED. 

DRAW %, OC %, ACFT %, MISS %, ENG %, OMEI %, EXCH $%, 

AND ABM $. 

= (Fnter values separated by commas) 


DO YOU HAVE MORF CORRECTIONS (Y OR N) ? 


= (Enter Y or N) 


NOTE: Percentage changes will be reflected in the data 
file NEWPER. 


APPENDIX C.1 


DATAFILE SAMPLE MODPCT 


*BCDASC3 


BCVASC MODPCT 
LINE NUMBERS? 
TAB CHARACTERS ANI 
KLIST 


FY, TOTAL cond ANG ~ DA é ase DN a MAC - MAP SYS , OTH 
3 1? 


2 6539779343 73:9. 38 97 7454995400 3495263272790 131931998052 FBI225 4498 2453 


READY 


* 
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DATAFILE SAMPLF REOPER 


DATAFILE REQPER 


lo mm lo fe lo Oho ee @ 
s & & % © ‘ 
ES xry EF v £ $ 
FY sy og 9 y S 2 
oe 37124425 949940 29p. 24719394448 653)33 422 
7 1497129034 25 faaavap: 3253404031 6800308 
gi 12 37AGS2 1924091390 j423I3AA5I3IVISE1 
g A237 A 7394A9593)94 AWAD AS 7223344 
ZW FAIA ADAG AAAS AM, AAA AIS JAABIBIC 
Ro WAIAAAIBAIA4AAIpA ANI IBAWIIIBVI’AA 
z AB AL ADITSH IAW AI“ 444)42.33 16596323 
8: 163190024999 93 49 7T3IIAIM67T271V33455 
2 IZ 63ADI5 A6AAS 46S 1a) 3375329300378 1 
Bi I3639I494A91 41 1992WVIINWAT62VI9045 
Rs JAAIAWIIIIAAIAS AW \AAIIDIIMISZ ADI AID 
$f SASAQIAINAIASINIS IAA AD AAAI AIA ABIONWIVIS 
o: 19734032034490 32p: VIIAMIIOMWIIIAVIL2I 
gi JATI4G 2AAAIIAIG 132340333 4~9S2AWIV2Z9 
g 392940936455 3250322.904340B29464949302461 
32 3929903135 9994339PA IA WIIAAMGIIAL AAAI 
g2 JADIAAIAIIMAAAICWAGIASISAWIIIANIA. pe ; 
2 ARAZAGIZSAADAVZSABIOA A 4IZABIASWBISABVIIS d 
32 1ZIAAAAIIAIAIIIIADA Be VENI IA? ae usta 
ge IDDIADIZABAAISIIVIAIAADIGIAAAIAW4ILAVWAAVIO 
32 SBAAAAIIAAAAIVDAIDIVIIIAIAIVAIVAIAA 3522 
72 VIZAAVAA AIR AVAABOD IIIA I3AIAdsI 3380 
32 1292 AQG96 72.43 131 639233392519922 10651 49488 
22 19478 AQVA3 23. 442335199 445997 6219945 49552319092 
BO SAASADVADAIAIIAIAIIZAAAA IVAAZAAIAI Jaw Ivrz2 
22 JI 4A AQIAIDAIDY|IAAYAA ADIAIAIAIZ WAI AAI IVs 
82 LADAAGIG 1434943 PASS 39151159940 1 62 
32 1LADAAII3359IA29 J 3 ANID e WII 
82 JASIAYII2ZAIBIAAP 4a 33239034340 339090 402 
82 BIDIAAAAIAMAASANIDIAAMIIZAIAIII“ N42 333 
32 A423ADIEI5 AAAI IIA 5135194099031 4900422 
32 3423 143 344943999909 W 22 421433399 753190 4d2 
g S511 4IS451 99993 4ADAAIAIIWBIAI21WII49 
32 SSLLAaGIS 4851 392 MIB ABIAIZ AIA JSDBA 
32 SADSIAADSZABIDAIAMI IWR AAIAIZ AD ABS 
22 JIDIAIIIIS B93 2933. AMA J JIVIIIWIS.I 32 
52 I9934VIZIAAS3DIAVIAIAAIAIAANIIGINGAIBAIBIG 
SOMAANZIAA AQAA? IIIA I. AAADIAZBIAIM IIIA 
2 WL AS 3ADAL G7 YAAIGAIIAIAIIA 3HII 4559523499545 ‘ 
4 WL 293 AGS 32 11996 79194399999 IAGIDIBWI32 1133384 
22 DAIAAVIGABAMABAAMIIAA: JAZIIIBI Yosa f 
32M A AN 20 AAAGAIAA JOAIBI—IDI MIDI IDOIII MIIBII " 
“So 85.53 49469230 2439022949 1933123293 43339 72080 
82 15433492397 IAMIIS2MAI1 GASIAMIIGAAZIIA 
g: 149149372259 761319075 WOdIAAIIIsA 31331 
Bz NADL G27 7 HA5S 28M IS AD IIDAIATS! WII 
a) AAYIADAIS AD \IIIAAIAS IA AIBAIL IA JAIDILI 
32 JI IAAI I33MNIIIDIDSIAIIIZABVSALIII| | 
3 SILSAGILA acbousdade JABAANII ID JALIIA I 
gS! II1S IBEIBABIAIIIBA 133343233 BAISZAGY / 
ce 293449339391 2433139DIAIIOIAS PIC IAI 135 
2 193%459031491P4134433049393409314 3392 
sf NAAA%ADIV AI ABAD ANIA DIAIAAAAIIAAMIIIAIABI2 C.2-1 
Bi AIG IS AVIS IAAGVAAIAIDI4IAIIDIAZIIIMAIVAIIVII 
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DATAFILE PEQDOL 


iF Be. 4AQI3IIII IIIA IS 
SIA! IAB 25148092 44089193193I9309 4330 52 
AK YIZIZIBDIAIZDIAIWIIIIIAISSA 8229 JIA 


eiedpdehe reece cated ate BA MIVS AD 
MMIII 
M32 AL 
AVY2334N94I523 44 4349 
adS 320 Jd al 2930 
S3b45 
MAS SIAAAIAD IY L 5a) V1.4 YISIICADIIIS 
ZANNANIIDZIDA$AIANIDAIZANIIIDISGAWIID SAD IVD IV IAS ABIDBCIIAS 
B2)AN ‘d ADAZAABAIIAA JIIBIAAIIA A. BABI IAIAIIIIB III 3S 
#2: IAVIAAIDAIIIVM AAAS AIAISP IIIA IANIDID IOI AIAG 

NO4AD¢ DIIDIIBIIAIISAII4I30 


W949 AAI vil 4469 4 rf sce 3 
4ABMIGAIIZS AAIYA4AG3 2 pote @ 


AQ 
e) 


. AS ASO OA oars 
A AN OV iv be tv ev ov ivi 


4] L2542apal 9633 39337 L2paae. a1 42 243433 3 34023 i 337 4) ‘ 
YAIAABIABABABADIBAIZIAAADIGIIAI 29309749 4I73IBIS42 
AAAS INZGAAAD IIA IAIIID 1839994599 3393 34 39 IY 3492 

249ADOOWAZAYIDAWIDT5I5\3ZAA2ZLI6GPABS692VZ. & 272223839 
DAZ 4343124925 IA 3AIA663 51994938 3V 3935769305353 WIAA 


g A4I3AIBIAADIAAIAA IS IAVBAABD 5333 50I99D Ba2 2O2IpO2d2 
3 AAA 33 93992R999 33 AIA IFIAI3I25BYVII4I209GI05II IW 3394 
8 JAAFDIAIAIAAIAAA SL 26973984 333V355895945 3343 ov a3 45 
% JAAZBAIAWAIII IAA I4A7264I99943B 42929 1S ID IID IIAA 
8 FALGSZA44DIADAAMNIAIAAINIZ AG AB IYVAASIIIBIAA22 T3248 
8 DIDS A5CTI2EWIIIADD WAAIADIBDAVBS 3D AA IVAZAIIIAVIIIGIOV IAA 
aed ME EAIABIOIIVA|IA AY IADAID2VW0 73 39448 rile vpeips Spake 
82 AIS AVY IOYVAIAIA AW 33 IIAAVA7IAAII4IDA3VIAAAZIVIDIA 
82 is) 13329)9 34.109 2310.39)043.99 B.4938 AIS 9290 JB 9A39 


S2MAPRIGASAISAADAIADA AD) 533973303 JVAIIAALVIAIIId BEAbS 
B82MA WIA ID IVADAAADZAIAIIAGZIVAAAAA4VASIIAIPIASAZ4VAA 3D 
D2 IAI422B IAA ADWOIIAAAGIZA II IBIS one I9BISIIBII IS 
2I3GIIANYAADIAIADIAIIG IBVWIIG ISI IE 24 3IVI SIGS PIII 
OS AAS IABAAAAAY SIISIIMIZIAAIB MA AIAII IG 39: ABIY 
IIA 49AIND 42949 4I3S1284)49 33839258454 654I5 3003 WASIA 
GAD SAABAAIIZIAALIAA%4 ISIS 143923Y5I342 423 d403 M5358 
bBIA596378 3945343999 AG 3093996 WIBI2S AIL 242396 30 
lp A alt ABB IIBMNIBAV22 29 941335 348456 HId3 39 
ZIDIIABASIIIGIIZIDIMWIS I 365 BIS SISIIGIII94 W345 72 


32 29 BIBVI22ID FB IIBAAMNIGIAZA BB I9 3638305 45 3IGI23 44 
3 932292 42~A4I339339b 3334523939599 02893908 II03420 8838 
% Q53dI4AIDDIDIAAAAIVS 399 IB IZWIVIABBIIIAI IAAI 
3 C rears Bh 434929 IDIIAAIWIIAII2AVII1L2A939931965 488409 
Bi whet te Sp tthe Sts tech NE te sc JIIAAS 


820T} 380000420000 


8 THA: p12000d0 00200200000 AAAaAgaaadaaaaagaa 


ar an one a 
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3PAGE.8 = FILE OF 
FUNDING PRIORITY 


Al AIM4 ,ATMINAA 
ANA 447 RB, 457 /R1121 
AT AIM4 ,ATMANGA 
At AIM4 ,ATMNAAE 
Al AIM4 ,AT4NNan 
At AIMGO ,A[MANHOR 
AJ BOMS4,BUMN 34% 
AS BUMS4, Rui saa 
AJ RUMS4, ROMO ZaF 
AJ RUMS4,R0MA44F 
AK COM16,CAMN16F 
Al 6-41-02, 64-49 4012 
AM COMIN,COMNIGHA 
AM —6M25,.6M026- 
Atl LOMSZ0,LGMH304 
AH LGM30,LGMAS3nc 
AW LOM30,LGMO 3H 
AW LGMSO,LE4030F 
AH LEMSO,LOEMN3408 
Au PGM17,PGMM174 
AR Stv »>WS96 

AR SLY »nse 

YX FICOM,MEBS 

Ait AMMPAL,ANANAGR 
AG AGMI#H,ACMEHAS 
At AOM4H,ALMNAGBA 
AWK AGMAOXO, ALMANAGA 
AU AGMA5,ACMA5A 
ACF HWOM14,HGMQ18F 


GES ClGy ,CLad A 1 
BCR Chal xoiatA i 
BCD C131 567310 $4 
ICE CLSt pOtaere ai 
BEE Gist .ehany 

BCG CPA .eran x St 


ar SiSt ao VELPSTA 
RE ClIL «2 VicLat 


tCH CUS s¥CRSE 44 
7G T29 eTHAO4A 7 ij 
HOEK TPO »>VINPIA Ai) 
BEE T?9 »TROAGR on 
ROM T29 »VIN?O min 
REN T?P9 »TO?OR 114 
REP T29 »VINZOc {| 
ReR T2729 »TH?ONn 131i 
HES 729 »VINP9O4 14H 


HE T?9 »>VINroe 
ae T?9 rCTNAVA 
AY TTP9 Pe i dD 
ae T?9 »F TNO} 
ith ee el TOA 


ROR WTA ,UNnTAR Sy 
won wr~A »~UNnTAN 1460) 
NEA FA eFUDAA t7u 
REH F4 pF INA LR 
RFC FA »RE NA jon 


REY FA sFuN4aAr ONY 


REE 
REF 
BEG 
REH 
WER 
REO 
HE K 
hid 
HH 
ROA 
RAC 
an 
RAF 
BJF 
256 
QJH 
RRA 
ty he 

RHA 
RKH 
PA 
HPK 
RPE 


RY¥A 
BXZ 
RYA 
WYK 
37 
7 
H7ZA 
w7HK 
B70 
CEE 
CEE 
che 
CrA 
CGA 
CER 
COA 
CuK 
At 
NAG 
TAH 
ne 
ne 
Ora 
ne 
Wee 
Nee 
ne 
Ne 
acn 
NCE 
Her 
neo 
ne 
ne 
nc 
nem 


F4 
Fa4 
Fa 
F4 
FA 
FA 
Fa 
F102 
FIN? 
Fin 
FI241 
FIL 
Ett 
ibe i 
ss 
a 15) Sa 
R411 
BEE 
Fina 
Fine 
17 
ut 7 
WE? 


G7 
Ei? 
Cs 
Gs 
H53 
HS 
H5 3 
HAS 
Hb s 
ISMAA 
WOM4ACG 
WSOMAF 
A1 
nN? 
NV? 
C9 
cy 
443 
H13 
H13 
C47 
C47 
(a7 
C47 
C47 
47 
NA7 
C47 
CA7 
CAT 
O47 
C47 
“47 
C47 
C47 
CEi7 


aRE VHA 
»>Fraan 
eFanae 
ef A046 
eFNN4F 
sFanal 
»F aan 
sFIA2A 
oe TFTOA 
Pd ti Te OG: 
FPL ele 
eF ELEY 
of £ULE 
lah a ag 
»RELIIA 
sEFLTTA 
FRILL 
ePRitta 
»FLNBA 
st TAR 
eT 7A 
-UNt7R 
,UAL76 


»CONTZA 
aC eb ee 
,cnins 
»>XCANBA 
»sHU5SSR 
»~HNBSE 
sHHOS sk 
2 CHSC 
py HbhOS3E 
pWSMUNAA 
»pWSMON4AT 
»sWSANNAE 
pANN1TEF 
a MPAA 
»ONNPR 
sOMQOn 
sVEANIC 
»OHAL St 
OHA 30. 
2 OHA 3H 
xO0474 
Ov 47 
C047 
,ACN47 
pF a7 
FC NAT 
,ECN 47% 
,sECN47I 
eH na?7 
ROU a? 
+ Vaz 
» VCN47 
»VEN4ATY 
»VOVATI 
eGnh47y 
gGLU? 


Zio 
oil 
238 
ZAI 


6 fy 


26U 
e7t 
Peau 
Pot 
ont 
S14 
oA ti 
ost 
a4t 


J5u 
SAI 
Aa7N 
SR 
S90 


41 
A? i) 


43n 


a4aiy 
ast 


4B 


447i 
4h 


AY 


san 
4) 


‘4,9 


La 


HAT 


HR 


SAL 
ST 
HHA 


HOY 


que 
o1u 


a . 2 eel 


C117 
H? 4 
r54 
C54 
Cha 
ChA 
CHA 
C4 
r54 
H44 
H44 
H44 
C118 
Cts 
Ciid 
C118 
Ci24 
R2?A 
226 
R276 
WAH 
NEA 
AOA 
RAB 
RAA 
HOA 
CiSS 
S233 
ae 
c10A 
WP? 
FRO 
avin 
RA? 
147 
147 
847 
RAZ 
447 
HERD 
RS? 
RH? 
R52 
Qho 
Wh? 
HOD 
Qh? 
2h? 
cQ7 
C97 
C97 
cQ7 
ro7 
C135 
C235 
th cis) 
C135 
C1ss 
C135 
C135 


C117 
Onn? oF 
Cusan 
Heys ay 
TOOK 4 
cnhh4e 
CH54G 
Ciysay 


»Ch547 


ChHasar 
VHT GAY 
UHRA 
CI1HA 
VCELiaa 
oe i BG 
ECTS A 
c124ec 
THO24 
Ve PAL 


’ BU2 HK 


FuIAA 
RE WAAL 
FEMbAL 
PRIGAT 
FROANA} 
WIKNAALL 
CI33A 

C154R 
SAnAn 
cuits 

NUNPA, 
Fnaol 
OVATNA 
RYUATZA 
THnNa 7h 
RATE 

Riya TE 
WHA 7H 
Re MATZ Ih: 
WheAGBHT 
RHSPA 
nu HAR 
RNSar 


»eRH5PNn 


RHSPE 
RNSPE 
RHH5SALR 


eRU52H 


' 


, 


enoa7er 
Cng7n 
CHY7G 
KC NOT: 
Krag7)| 
CLAS 
Eri3sa 
Fc. s5i 
Eri 55+ 
EC1T35 0 
EC135% 
FIT S5I 


9, 
g4n 
QO? 
Gky 
244 
Osu 
GAL 
g7n 
QR 
you 
wan 
Tara 
1u2t 
Tuan 
1040 
1050 
THA 
107 


Tusa 
THOn 
TTag 
1110 


GAR 
GPA 
OPH 
RPC 
HitA 
Giue 


Bie 


2ECL 35h 
FEE LODE 
2CEtSSA 
eeGhoo 
eKETS5t 
»KC1 35: 
csREOPSSA 
aRC LOZ 
sROPaS 1 
sCt35R 
Pd ASSAD 
sWOLO5' 
,FEL3S5C 
»RELS>5E 
»>RC1T35* 
eRELSSS 
Pay 24s Ht Wh ho a 
aReO LSA 
»VETS5SR 
sFQ]5 
»FRTD5SA 
TF ats 
oe TF ALBA 
sFNITOA 
»FO1T6R 
eHHAD TE 
»~UHAATE 
»~UHNNTD 
»>THONTE 
»llHAnTS 
HAA 
~WHAAGT! 
thes 
pHUOTAA 
»HHATAK 
»C142 
»~UiNA 
sh QAA 
»CHOPITA 
»CHOA?PTY 
»pHHNPTH 
,Un17 
HATA 
pn AA 
,UNDAR 
»AUS37 
eANI7A 
»,AN3ZTR 
2F 1018 
sRE TOT 
st LELE 
PETE 
PE DPEE 
Rt intG 
> luisa 
»CHIATA 
»>HHN4 SI 
~HHAV4 SE 
56141 
sC141A 


1176 


oi 
79 
eA 
Qi 


1390 
WS Ht 
T3520 
Togn 


145410 


135i 


457 
R57 
133 
Vas 
bas 
133 
T33 
Tos 
C434 
C121 
Ci24 
Gr2i 
GEEZ 
C121 
Cie 
C1274 
CTed 
Geter 
C124 
pai ee | 
Ci2a 
GE24 
C150 
C1350 
C130 
Erde 
C130 
CEaa 

read 
444 

rai 

Est 
C130 
Crst 
13h 
131) 
136 
C130 
1 oe 
Eroo 
C130 
CLoo 
c13a 
C130 


a 
FING 
Fina 
Fina 
Fina 
Pina 


»RRASTA 
2B057R 
»>REBZC 
»>FRASTH 
»BUSTE 
2BNST7G 
sFRASTE 
sR NSHTE 
»RRASTE 
»WRAHKZI 
TOSSA 
»ATOSSA 
aDTUSATA 
eRTOS SA 
DES ON 
2QTIN34% 
»C1P1A 
sO1 210 
RED 2AG 
,Entetp 
sECE21 
sECT2TI 
2ElZLG 
enECLZER 
sEC1271k 
PECL? Ut 
Pua ea 
eeGieti 
»ECL21S 


eVGwe tt 


Pin Os 9 
»DCLINA 
»WE1T ANA 
RO LEO A 
,ACT SOE 
,AC1T 30H 
pROLIND 
»C1308 
sVCLSNVE 
Fo 
worl ae 
rG1a04H 
2NC135N1 
sHC1L SA 
sHOTL SAF: 
+HRETL SME 
pHE TAA 
eWO1 30 
Pa ke i a 
pOTSOY 
PNeV3My 
»sHCLS3NF 
s ON AGA 
»>VENHAA 
sQEINGA 
sFLAAA 
pF 1 ae 
»sFTANAr 
»FINan 
sFT NA 


14460 
1478 
144i 
1494 
oui 
15145 


£520 


41530 


tha 
1550 
Pd4A! 
Lo7u 
| aH 
TSH 
16900 
Teiu 


TAP 
146.30 
To4an 
16560 
1Tosil 


167% 


1680 
1696 


1704 
ys Gi) 


1726 
41736 
174A 
1753) 
176 


AN: 
1780 
179i 


TRAD 


18ta 
{uA 


VHS 
Th41 
PeoU 
TRAN 
1H70 
Tesag 
Th9 
june 


Pelee EON he RP Nee 


EKG 
LKH 
LK 

MAN 
MAE 
AEG 
MEA 
4FR 
Mp 
MJA 
MUP 
MOE 
Man 
mM A 
MLC 
MLD 
MIF 
MSA 
MSR 
MSC 
MHA 
NHK 
NER 
YEA 
NEF 
NEG 
RHA 
OnR 
RHE 
Penn 
RF 
REF 
RAG 
PX 
RER 
RE J 
QEK 
REY 
RE 

Pt 

SHA 
SCA 
SEE 
Str 
SEA 
SEH 
SEA 
SFR 
THR 
THe 
THE 
Thi 

THY 
TXA 
4ttA 
Panes 
win 
XA 
XH 
Xe 


FING ,RETAAG 
F1IN4 ,TRiN4aG 
Fina ,Of1na 
A7 »AuOQ79 
A7 »ADNTE 
Té »TNNAG 
T28 »TOHAHKA 
T?R » TNPAR 
[28 »THaan 
PRA »FQR846h 
FRG »FAS86F 
PRA sRERBAE 
aw) »F ROH 
Finn ,FIANA 
Find ,FTAAS 
Finu ,FIAAN 
FELOO ,FLOHE 
Fo eFhO 
54 »FNBIA 
F54 »TEH51 
FRA »Fns4e 
PRA »RENS4F 
Fins ,F1058 
Fi0S «FPS 
FOS ,FLOSE 
FIAS EPS 
CI19 611 9€ 
ELVES ET LIOS 
C119 ,Ci1i9K 
CLto Bere 
Gi19 ,~AC119 
CIPS skEIo 
CLES gOtEst 
CLis sC1TTSx 
Ci2a sCiZon 
ois Bs PS os ee 
€i2o +6120% 
Gi2S FEPTZON 
61235 , cts 
Chos 47 Veposk 
MOUiM1 3, MUMN1TAA 


od ,ONNTA 
4 »OUALTE 
v4 sNHNTE 


RS Gs eo THATA 
kas 2tOa7R 


hs eH FA 

hs »URASR 

43 »CHAN 44, 
3 »CHNOSE 
HW ~CHuAN SE 
Ha HET SE 
Ha Hen aY 


T4184 91043 

479 sHHNItOA 
H19 »HHAT OF 
H19 ,uHAPAn 
ETA? VCore 
Siar « VOLS 
CLS7 sVCLS7t 


1910 
19295 
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APPENDIX I 
REPORT 6 
DPFM REQUIREMENT 
ALLOCATION SUMMARY BY TOTAL OF ELEMENT 


OF EXPENSE IDENTIFICATION CODE 
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MODALC. 
MODALL. 


MODEXT. 
MODMDS. 


MODPCS 
MODPCT 


MODREO. 
MODSUM. 
MODTOT. 


MODWBS 
MODPRI. 
MOD500. 
fe) 

OTH 


GLOSSARY OF TERMS 


Direct Air Forces 

Area Base Manufacture 

Air Force Reserve 

Allocated Dollars 

Air National Guard 

Contract 

Customer 

Direct Cite 

Department of the Army 

Department of the Air Force 

Department of Commerce 

Department of the Navy 

Element of Expense Identification 

Flement of Expense Identification Code 

Engines 

Exchangeables 

Federal Stock Class 

Fiscal Year 

Logistic Subprogram Code 

Military Airlift Command 

Military Assistance Program 

Model Design 

Model Desian Series 

Missile 

Management Items Subject to Repair 

Summary by Manager. Report #4. 

Process comparing requirements to dollar available 
and dollars are assigned in order of priority of 
weapon systems. 

Extraction of data from DPEM data base 

Process making common items and identifying them to 
"peculiar" weapon systems 

Time sharing interface allows percentage choice of 
budget parameters for allocating DPFM funding. 
Time sharing interface allows choice of budget para- 
meter for allocating DPFM funding 

Summary by Customer. Report #5. 

Summary by Model Design. Report #1. 

Summary by total of element of Expense Identification 
Code. Report #6. 

Process that merges two streams of "peculiar" data 
Summary by priority. Report #3. 

Summary of items over $500,990. Report #2. 
Organic 

All others 


PC 
R 

REQ $ 
RGC 

sys 

WBS 

WM ALL $ 
WM REO 


Organic/Contract, work types 
Pseudo Code 

Reimburseables 

Requirement Dollars 

Repair Group Category 

Air Force Systems Command 
Workload Breakdown Structure 
Cummulative allocated dollars 
Cummulative requirement dollars 


LOGISTICS PSEUDO CODES 


The Logistics Pseudo Code (PC) is a four=-character alphabetical 
code used to identify a particular line entry within the auto- 
mated Program Management System (K011A) and the DPEM proaram. 

Oklahoma City Air Logistics Center (OC-ALC) DAAA-DZ22 
Oaden Air Logistics Center (OO-ALC) EAAA-EZZZ 
San Antonio Air Logistics Center (SA-ALC) FAAA-F222Z 
Sacramento Air Logistics Center (SM-ALC) HAAA-H222 
Warner Robins Air Logistics Center (WR-ALC) JAAA-J222 
Aerospace Guidance and Metroloay Center (AGMC) RAAA-R2Z22 
From a Headquarters AFLC viewpoint, the first letter denotes 


the ALC, and the last three letters, AAA to 222, are internally 
assioned and controlled by the ALC. 


REPAIR GROUP CATEGORY 


A Repair Group Cateqory (RGC) is a one-digit alpha or numeric 
character that identifies the system(s) Federal Stock Class 
(FSC) or program for which a maintenance workload may exist 
and against which an expenditure of manhours may be charaed. 


A = Aircraft - Proqrammed 


B = Aircraft - Non-Programmed 


Missile Proarammed 


Q 
i] 


D = Missile - Non-Proqrammed 


F = Enaines Proarammed 


F = Fngines Non-Proaqrammed 

G = Other Major End Items (OMFI) - Programmed 
H = OMFI - Non-Proarammed 

J = MISTR (Organic/Contract) 

K = Neaotiated Project Directive (Non-MISTR) 


L = Exchanaeable - Non-Proqrammed 


M 


Area Support - Oraanic only 

N = Base Support - Orqanic only 

P = Manufacture - Air Force Stock Fund - AFSF 
R = Manufacture - Non-AFSF 


S = Snecial - Organic only 


— 
= 
ul 


D/M Overhead =- Oraanic only 


1 = Aircraft Storaqde 


3 = Detachment #41, Vanderbura 
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uw 
i] 


PME Calibration 


7 = AFLC Contract Base Maintenance 
8 = Contract Service Fnoineerina 
9 = Preparation of Reproducible Copy of Data 
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WORKLOAD BREAKDOWN STRUCTURE 


The Workload Breakdown Structure (WBS) contains three (3) ele- 
ments. 


The first element (lst didqit) is the major cateaorv codes that 
identifies one of seven major cateaqories of weapons or eauip- 
ment end items to which a workload may be assionec. (See l, 
below) 


The second element (2nd, 3rd and 4th digit) is a weanon or 
equipment end item defined as an instrument of combat or comhat 
support employed in the accomplishment of a military mission. 

It consists of a final combination of assemblies, subassemblies, 
parts, and materiels which together verform a complete opera- 
tional function and is ready for its intended use, i.e., vehicle, 
missile aircraft, ship, tank, communications system. (See 2, 
below) 


The third element (5th digit) is the workload breakdown struc- 
ture code used to provide further breakdown of the seven major 
catecories of weapons or equipment end items for which require- 
ments may aenerate. (See 3, below) 


1. Major Cateaory Code: 


Category Code 
Aircraft 1xxxx 
Missile 2XXxXX 
Ship 3xxxx 
Vehicles 4xxxx 
Flectronics and Communications Svstems 5xxxx 
General Purpose Equipment 6XXXX 
Ordnance Weapons and Munitions 7TXXXX 


2. Weavons or equipment end item specific codes used are as 
follows: 


Aircraft 
BCA = C131A BFF = RFOO4C BXZ = C0072 DCX = Cl17x 
BCB = C131B FBB = FO04D BYA = C008 DDF = OH023F 
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DUA 


C131D 
C131E 
C131X 
VC131H 
TO29A 
VTO29A 
VT029B 
VT029B 
FOO4A 
VT029C 
TO29D 
VT029D 
UO10B 
UO1LOB 
FOO4A 
FO04B 
RFOO04B 
FO04C 
EBO066D 
FRO66F 
C133A 
C1138 


S-02D 


BFG 


BFH 


BFJ 


BHA 


BHB 


BJA 


BUC 


BJD 


BJF 


BJF 


BJG 


BKA 


BKB 


BPA 


BPB 


BPC 


BRA 


BXA 


FLA 


FLB 


FLC 


FLD 


FLE 


FOO4E 
FO04G 
FO04J 
F102A 
TF1O2A 
F111A 
FIIVe 
FLETD 
PLIAE 
FeliF 
RF111A 
F106A 
F106B 
UD17A 
J017B 
U017C 
FB111 
COO7A 
C135A 
EC135A 
RC135A 
RC135A 


C135B 


BZA 
B2B 
BZC 
CFA 
CGA 
COA 
DAF 
DAG 
DAH 
DCA 
DCB 
DCC 
DCD 
DCF 
DCF 
DCG 
DCH 
DCM 
GUC 
GUD 
GUG 
HGA 


HHA 
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HH05 3B 
CH053C 
HH053C 
AOOLE 
0002A 
CO09A 
OHO013E 
OHO13G 
OHO13H 
C047 
EC0470 
EC047 
HC047 
RC047 
TC047 
vc047 
C047X 
CLL] 
F191C 
RF101C 
RF101G 
T034 


CH047 


C054D 
HC054D 
TCO54D 
c054x 
C0542 
CHO34C 
UH034D 
UH034I 
C118A 
VC118A 
C118x 
C124C 
TB026 
VB026B 
BO26K 
EBO66B 
RBO66B 
EBO66C 
EC121R 
Cl21x 
C130A 
DC139A 


WC130A 


c910 
0U022RB 
FO89T 
OV1LOA 
BO47B 
TBO47B 
BO47E 
RBO47F 
WBO47E 
RBO47H 
WBO50D 
BO52A 
F052B 
BO052C 
BO052D 
BO52E 
BO5S2F 
B952G 
BO52H 
CO97L 
c097D 
KC097G 


KC097L 


FLF 


FLG 


WC135B 
BC135C 
RC135C 
RC135M 
FO15 
UHN01RB 
UH001D 
THOOLF 
UHOO1F 
UHOO1H 
UHOO1N 
HUO16A 
HU0168 
C142 
U006 
CHO21A 
CHO21B 
HHO021B8 
U007 
UN04A 
A037 
F101B 


RF1018 
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HH9043B 
HH043F 
C141 
RBO57A 
BO57B 
BO57C 


EB057D 


RBO57F 
TO33A 
DT033A 
RT033A 
T033X 
OT033X 
C121A 
ClZ1C 
RELZIC 
EC121D 
ECL2ZIT 
C121G 
EC121H 


ECi21k 


AC130A 
RC1390A 
C130B 
WC1390B 
C130D 
C130E 
DC130E 
WC130E 
HC1390H 
HC130N 
C130X 
CLs0y¥ 
COO5A 
VCOO6A 
OF104 
F1LO4A 
F104B 
F104C 
F104D 
F104G 
RF104G 
TF104G 


A007D 


MEG = T006G 
MFA = T028A 
MFB = T028B 
MFD = T028D 
MIA = FO86D 
MJB = FO86F 
MJC = RFO86F 
MJD = FO86F 
MLA = F1OOA 
MLC = F1OOC 
MLD = F100D 
MLF = FLOOF 
MSA = FO51 
NDA = FO84F 
NDB = RFO84F 
NEB = F105B 
NED = F105D 
NEF = FLOSF 
NEG = F1905G 
Missiles 

ACD = CGM0N16D 
ACE = CGMO16F 
ACF = HGMO16F 


AHG 


ADA 


BMA 


c119C 
C119G 
C119J 
AC119G 
AC119K 
C119K 
C1238 
C1239 
C123K 
C123Y 
O001E 
0001F 
T037B 
U003A 
CHO03B 
CHO003C 
CHO03E 


HHO03Y 


LGM030G 
437/BURN 


WS96 


JBA 


SBA 


SBB 
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T043 


HHO19A 


HHO19B 


UHO19D 


VC137A 


C149 


TO38A 


L039 


TO39X 


C046 


FOOSA 


RFOOSA 


FO05B 


FOO5E 


BOS8A 


TO41A 


TO41D 


A004B 


AGM65A 


MOM013A 


CGM013B 


13A 


14A 


15A 


16A 


17A 


18A 


19A 


20A 


21A 


22A 


23A 


244 


25A 


26A 


27A 


28A 


883 


999 


22A 


23A 


Z3F 


AX 
UO0O1A 
B045 
FOO8X 
TOO2X 
PO002X 
E003A 
AU23A 
AU24A 
COOXX 


EC747 


C-11 
MH-15 
F37A/T45 
A7 

Other 


Common 


PGM043 
BOMO34A 


BOMO34F 


LGM025C 


LGM030B 


LGM030F 


Shiv Systems 


e333" 


Vehicle Systems 


"A444" 


CEA 


FBA 


HGM025A 


COMO1LOA 


CIm010B 


VEA 


21A 


Electronics & Communications Systems 


CZA 


ZGA 


440L 
MCGS 
441D 
4141. 
416P 
418L 
496L 
412L 
433L 
465L 


466L 


ZJA 
ZKA 
ZMA 
ZNA 
ZRA 
LAA 
LBA 
1CA 
1DA 


2ARA 


General Support Systems 
"666" 


ATAL 
404L 
4941 
4921 
407L 
416L 
416M 
4160 
474N 


425L 


Ordnance Weavons and Munitions 


bbe [7 2 ha 


} Xe 


I Aircraft 


A = Airframe 


2BA 


3AA 


3BA 


3CA 


3DA 


3FA 


3FA 


3GA 


3HA 


3JA 


Workload Breakdown Structure Codes: 


DSP 


PGMO17A 


427M 


439L 


469L 


434L 


484N 


436L 


487L 


437M 


433L 


489L 


II Missiles 


A 


888 


999 


3KA 


3LA 


3LB 


3LC 


3LD 


3LE 


3LF 


3LG 


4AN 


5AN 


Missile Frame 


Other 


Common 


490L 
493L 
ZS 

JA 

ZX 

ZE 

ZU 

ZV 
GPS=T2 


GPO0-76 


B = Enqine B = Msl Prop Sys/Comp 

C = A/C Acc/Comp C = Msl Acc/Comp 

D = A/C Electr/Comm D = Msl Supp & Launch 

E = A/C Armament FE = Msl Guid Sys/Comp 

F = A/C Supp Eauip F = Msl Grd Comm/Cent 

G = A/C Other G = Msl Other 

III Ships IV Vehicles 

Constant 3333X ships Constant 4444X vehicles 


V Electronic & Communications Systems 


A Sta Sys/Comp 
B = Mobile Sys/Comp 


€ 


Port Sys/Comp 
VI General Purpose Equip 
Constant 6666X General Purpose Fquipment 


VII Ordnance Weapons and Munitions 
Constant 7777X 
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